cl-interpol-0.2.6/0000755000004100000410000000000012757757171014022 5ustar www-datawww-datacl-interpol-0.2.6/cl-interpol.asd0000644000004100000410000000441512757757171016747 0ustar www-datawww-data;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-interpol/cl-interpol.asd,v 1.11 2008/07/25 12:51:58 edi Exp $ ;;; Copyright (c) 2003-2008, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions ;;; are met: ;;; * Redistributions of source code must retain the above copyright ;;; notice, this list of conditions and the following disclaimer. ;;; * Redistributions in binary form must reproduce the above ;;; copyright notice, this list of conditions and the following ;;; disclaimer in the documentation and/or other materials ;;; provided with the distribution. ;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED ;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED ;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY ;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE ;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS ;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, ;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (in-package :cl-user) (defpackage :cl-interpol-asd (:use :cl :asdf)) (in-package :cl-interpol-asd) (defsystem :cl-interpol :version "0.2.6" :serial t :depends-on (:cl-unicode) :components ((:file "packages") (:file "specials") (:file "util") (:file "alias") (:file "read"))) (defsystem :cl-interpol-test :depends-on (:cl-interpol :flexi-streams) :components ((:module "test" :serial t :components ((:file "packages") (:file "tests"))))) (defmethod perform ((o test-op) (c (eql (find-system :cl-interpol)))) (operate 'load-op :cl-interpol-test) (funcall (intern (symbol-name :run-all-tests) (find-package :cl-interpol-test)))) cl-interpol-0.2.6/specials.lisp0000644000004100000410000001103612757757171016517 0ustar www-datawww-data;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-INTERPOL; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-interpol/specials.lisp,v 1.12 2008/07/23 13:58:40 edi Exp $ ;;; Copyright (c) 2003-2008, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions ;;; are met: ;;; * Redistributions of source code must retain the above copyright ;;; notice, this list of conditions and the following disclaimer. ;;; * Redistributions in binary form must reproduce the above ;;; copyright notice, this list of conditions and the following ;;; disclaimer in the documentation and/or other materials ;;; provided with the distribution. ;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED ;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED ;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY ;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE ;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS ;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, ;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (in-package :cl-interpol) (defvar *list-delimiter* #\Space "What is inserted between the elements of a list which is interpolated by #\@.") (defvar *inner-delimiters* '((#\( . #\)) (#\{ . #\}) (#\< . #\>) (#\[ . #\])) "Legal delimiters for interpolation with #\$ and #\@.") (defvar *outer-delimiters* '((#\( . #\)) (#\{ . #\}) (#\< . #\>) (#\[ . #\]) #\/ #\| #\" #\' #\#) "Legal outer delimiters for CL-INTERPOL strings.") (defvar *regex-delimiters* '(#\/) "Outer delimiters which automatically enable regex mode.") (defvar *unicode-aliases* (make-hash-table :test #'equalp) "A hash table which maps Unicode aliases to their real names.") (defvar *optional-delimiters-p* nil "Whether text following $ or @ should interpolate even without a following delimiter. Lexical variables are handled correctly, but the rules are somewhat complex -- see the docs for details.") (defvar *interpolate-format-directives* nil "Whether to allow ~X(...) as format control directives in interpolated strings.") (defmacro defvar-unbound (variable-name documentation) "Like DEFVAR, but the variable will be unbound rather than getting an initial value. This is useful for variables which should have no global value but might have a dynamically bound value." ;; stolen from comp.lang.lisp article by ;; "prunesquallor@comcast.net" `(eval-when (:load-toplevel :compile-toplevel :execute) (defvar ,variable-name) (setf (documentation ',variable-name 'variable) ,documentation))) (defvar-unbound *saw-backslash* "Whether we have to re-process an \L or \U because it closes several scopes.") (defvar-unbound *pair-level* "") (defvar-unbound *stream* "Bound to the stream which is read from while parsing a string.") (defvar-unbound *start-char* "Bound to the opening outer delimiter while parsing a string.") (defvar-unbound *term-char* "Bound to the closing outer delimiter while parsing a string.") (defvar *previous-readtables* nil "A stack which holds the previous readtables that have been pushed here by ENABLE-INTERPOL-SYNTAX.") (defvar-unbound *readtable-copy* "Bound to the current readtable if it has to be temporarily modified.") ;; stuff for Nikodemus Siivola's HYPERDOC ;; see ;; and (defvar *hyperdoc-base-uri* "http://weitz.de/cl-interpol/") (let ((exported-symbols-alist (loop for symbol being the external-symbols of :cl-interpol collect (cons symbol (concatenate 'string "#" (string-downcase symbol)))))) (defun hyperdoc-lookup (symbol type) (declare (ignore type)) (cdr (assoc symbol exported-symbols-alist :test #'eq)))) cl-interpol-0.2.6/packages.lisp0000644000004100000410000000353612757757171016500 0ustar www-datawww-data;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-interpol/packages.lisp,v 1.11 2008/07/23 15:35:07 edi Exp $ ;;; Copyright (c) 2003-2008, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions ;;; are met: ;;; * Redistributions of source code must retain the above copyright ;;; notice, this list of conditions and the following disclaimer. ;;; * Redistributions in binary form must reproduce the above ;;; copyright notice, this list of conditions and the following ;;; disclaimer in the documentation and/or other materials ;;; provided with the distribution. ;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED ;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED ;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY ;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE ;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS ;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, ;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (in-package :cl-user) (defpackage :cl-interpol (:nicknames :interpol) (:use :cl :cl-unicode :cl-ppcre) (:export :enable-interpol-syntax :disable-interpol-syntax :*list-delimiter* :*outer-delimiters* :*inner-delimiters* :*optional-delimiters-p* :*interpolate-format-directives* :interpol-reader)) cl-interpol-0.2.6/doc/0000755000004100000410000000000012757757171014567 5ustar www-datawww-datacl-interpol-0.2.6/doc/index.html0000644000004100000410000011407212757757171016571 0ustar www-datawww-data CL-INTERPOL - String interpolation for Common Lisp

CL-INTERPOL - String interpolation for Common Lisp


 
"The crux of the biscuit is the apostrophe." (Frank Zappa)

 

Abstract

CL-INTERPOL is a library for Common Lisp which modifies the reader so that you can have interpolation within strings similar to Perl or Unix Shell scripts. It also provides various ways to insert arbitrary characters into literal strings even if your editor/IDE doesn't support them. Here's an example: 
* (let ((a 42))
    #?"foo: \xC4\N{Latin capital letter U with diaeresis}\nbar: ${a}")
"foo: ÄÜ
bar: 42"
If you're looking for an alternative syntax for characters, see CL-UNICODE.

CL-INTERPOL comes with a BSD-style license so you can basically do with it whatever you want.

Download shortcut: http://weitz.de/files/cl-interpol.tar.gz.


 

Contents

  1. Download and installation
  2. Support
  3. Syntax
    1. Backslashes
    2. Interpolation
    3. Support for CL-PPCRE/Perl regular expressions
  4. The CL-INTERPOL dictionary
    1. enable-interpol-syntax
    2. disable-interpol-syntax
    3. *list-delimiter*
    4. *outer-delimiters*
    5. *inner-delimiters*
    6. *interpolate-format-directives*
    7. *regex-delimiters*
  5. Known issues
    1. {n,m} modifiers in extended mode
  6. Acknowledgements

 

Download and installation

CL-INTERPOL together with this documentation can be downloaded from http://weitz.de/files/cl-interpol.tar.gz. The current version is 0.2.2.

CL-INTERPOL comes with a system definition for ASDF so you can install the library with 

(asdf:oos 'asdf:load-op :cl-interpol)
if you've unpacked it in a place where ASDF can find it. It depends on CL-UNICODE. Installation via asdf-install should also be possible.

Note: Before you can actually use the new reader syntax you have to enable it with ENABLE-INTERPOL-SYNTAX.

You can run a test suite which tests most aspects of the library with 

(asdf:oos 'asdf:test-op :cl-interpol)
The test suite depends on FLEXI-STREAMS.

The current development version of CL-INTERPOL can be found at http://bknr.net/trac/browser/trunk/thirdparty. This is the one to send patches against. Use at your own risk.

Luís Oliveira maintains an unofficial darcs repository of CL-INTERPOL at http://common-lisp.net/~loliveira/ediware/.
 

Support

The development version of cl-interpol can be found on github. Please use the github issue tracking system to submit bug reports. Patches are welcome, please use GitHub pull requests. If you want to make a change, please read this first.
 

Syntax

CL-INTERPOL installs ? (question mark) as a "sub-character" of the dispatching macro character # (sharpsign), i.e. it relies on the fact that sharpsign is a dispatching macro character in the current readtable when ENABLE-INTERPOL-SYNTAX is invoked.

The question mark may optionally be followed by an R and an X (case doesn't matter) - see the section about regular expression syntax below. If both of them are present, the R must precede the X.

The next character is the opening outer delimiter which may be one of " (double quote), ' (apostrophe), | (vertical bar), # (sharpsign), / (slash), ( (left parenthesis), < (less than), [ (left square bracket), or { (left curly bracket). (But see *OUTER-DELIMITERS*.)

The following characters comprise the string which is read until the closing outer delimiter is seen. The closing outer delimiter is the same character as the opening outer delimiter - unless the opening delimiter was one of the last four described below in which case the closing outer delimiter is the corresponding closing (right) bracketing character. So these are all valid CL-INTERPOL string equivalent to "abc": 

* #?"abc"
"abc"
* #?r"abc"
"abc"
* #?x"abc"
"abc"
* #?rx"abc"
"abc"
* #?'abc'
"abc"
* #?|abc|
"abc"
* #?#abc#
"abc"
* #?/abc/
"abc"
* #?(abc)
"abc"
* #?[abc]
"abc"
* #?{abc}
"abc"
* #?<abc>
"abc"
A character which would otherwise be a closing outer delimiter can be escaped by a backslash immediately preceding it (unless this backslash is itself escaped by another backslash). Also, the bracketing delimiters can nest, i.e. a right bracketing character which might otherwise be closing outer delimiter will be read as part of the string if it is matched by a preceding left bracketing character within the string. 
* #?"abc"
"abc"
* #?"abc\""
"abc\""
* #?"abc\\"
"abc\\"
* #?[abc]
"abc"
* #?[a[b]c]
"a[b]c"
* #?[a[[b]]c]
"a[[b]]c"
* #?[a[[][]]b]
"a[[][]]b"
The characters between the outer delimiters are read one by one and inserted into the resulting string as is unless one of the special characters \ (backslash), $ (dollar sign), or @ (at-sign) is encountered. The behaviour with respect to these special characters is modeled after Perl because CL-INTERPOL is intended to be usable with CL-PPCRE.

Backslashes

Here's a short summary of what might occur after a backslash, originally copied from man perlop. Details below - you can click on the entries in this table to go to the corresponding paragraph. 
  \t          tab             (HT, TAB)
  \n          newline         (NL)
  \r          return          (CR)
  \f          form feed       (FF)
  \b          backspace       (BS)
  \a          alarm (bell)    (BEL)
  \e          escape          (ESC)
  \033        octal char      (ESC)
  \x1b        hex char        (ESC)
  \x{263a}    wide hex char   (SMILEY)
  \c[         control char    (ESC)
  \N{name}    named char

  \l          lowercase next char
  \u          uppercase next char
  \L          lowercase till \E
  \U          uppercase till \E
  \E          end case modification
  \Q          quote non-word characters till \E

  \␤          ignore the newline and following whitespaces

If a backslash is followed by n, r, f, b, a, or e (all lowercase) then the corresponding character #\Newline, #\Return, #\Page, #\Backspace, (CODE-CHAR 7), or (CODE-CHAR 27) is inserted into the string. 

* #?"New\nline"
"New
line"

If a backslash is followed by one of the digits 0 to 9, then this digit and the following characters are read and parsed as octal digits and will be interpreted as the character code of the character to insert instead of this sequence. The sequence ends with the first character which is not an octal digit but at most three digits will be read. Only the rightmost eight bits of the resulting number will be used for the character code. 

* #?"\40\040"
"  "  ;; two spaces
* (map 'list #'char-code #?"\0\377\777")
(0 255 255)  ;; note that \377 and \777 yield the same result
* #?"Only\0403 digits!"
"Only 3 digits!"
* (map 'list #'identity #?"\9")
(#\9)

If a backslash is followed by an x (lowercase) the following characters are read and parsed as hexadecimal digits and will be interpreted as the character code of the character to insert instead of this sequence. The sequence of hexadecimal digits ends with the first character which is not one of the characters 0 to 9, a to f, or A to F but at most two digits will be read. If the character immediately following the x is a { (left curly bracket), then all the following characters up to a } (right curly bracket) must be hexadecimal digits and comprise a number which'll be taken as the character code (and which obviously should denote a character known by your Lisp implementation). Note that in both case it is legal that zero digits will be read which'll be interpreted as the character code 0. 

* (char #?"\x20" 0)
#\Space
* (char-code (char #?"\x" 0))
0
* (char-code (char #?"\x{}" 0))
0
* (unicode-name (char #?"\x{2323}" 0))
"SMILE"
* #?"Only\x202 digits!"
"Only 2 digits!"

If a backslash is followed by a c (lowercase) then the ASCII control code of the following character is inserted into the string. Note that this only defined for A to Z, [, \, ], ^, and _ although CL-INTERPOL will also accept other characters. In fact, the transformation is implemented as 

(code-char (logxor #x40 (char-code (char-upcase <char>))))
where <char> is the character following \c. 
* (char-name (char #?"\cH" 0))
;; see 13.1.7 of the ANSI standard, though
"Backspace"
* (char= (char #?"\cj" 0) #\Newline)
T

If a backslash is followed by an N (uppercase) the following character must be a { (left curly bracket). The characters following the bracket are read until a } (right curly bracket) is seen and comprise the Unicode name of the character to be inserted into the string. This name is interpreted as a Unicode character name by CL-UNICODE and returns the character CHARACTER-NAMED. This obviously also means that you can fine-tune this behaviour using CL-UNICODE's global special variables. 

* (unicode-name (char #?"\N{Greek capital letter Sigma}" 0))
"GREEK CAPITAL LETTER SIGMA"
* (unicode-name (char #?"\N{GREEK CAPITAL LETTER SIGMA}" 0))
"GREEK CAPITAL LETTER SIGMA"
* (setq *try-abbreviations-p* t)
T
* (unicode-name (char #?"\N{Greek:Sigma}" 0))
"GREEK CAPITAL LETTER SIGMA"
* (unicode-name (char #?"\N{Greek:sigma}" 0))
"GREEK SMALL LETTER SIGMA"
* (setq *scripts-to-try* "Greek")
"Greek"
* (unicode-name (char #?"\N{Sigma}" 0))
"GREEK CAPITAL LETTER SIGMA"
* (unicode-name (char #?"\N{sigma}" 0))
"GREEK SMALL LETTER SIGMA"
Of course, \N won't magically make your Lisp implementation Unicode-aware. You can only use the names of characters that are actually supported by your Lisp.

If a backslash is followed by an l or a u (both lowercase) the following character (if any) is downcased or uppercased respectively. 

* #?"\lFOO"
"fOO"
* #?"\ufoo"
"Foo"
* #?"\l"
""

If a backslash is followed by an L or a U (both uppercase) the following characters up to \E (uppercase) or another \L or \U are upcased or downcased respectively. While \E simply ends the scope of \L or \U, another \L or \U will introduce a new round of upcasing or downcasing. 

* #?"\Ufoo\Ebar"
"FOObar"
* #?"\LFOO\EBAR"
"fooBAR"
* #?"\LFOO\Ubar"
"fooBAR"
* #?"\LFOO"
"foo"
These examples may seem trivial but \U and friends might be very helpful if you interpolate strings.

If a backslash is followed by a Q (uppercase) the following characters up to \E (uppercase) are quoted, i.e. every character except for 0 to 9, a to z, A to Z, and _ (underscore) is preceded by a backslash. Corresponding pairs of \Q and \E can be nested. 

* #?"-\Q-\E-"
"-\\--"
* #?"\Q-\Q-\E-\E"
"\\-\\\\\\-\\-"
* #?"-\Q-"
"-\\-"
As you might have noticed, \E is used to end the scope of \Q as well as that of \L and \U. As a consequence, pairs of \Q and \E can be nested between \L or \U and \E and vice-versa but each occurence of \L or \U which is preceded by another \L or \U will immediately end the scope of all enclosed \Q modifiers. Hmm, need an example? 
* #?"\LAa-\QAa-\EAa-\E"
"aa-aa\\-aa-"
* #?"\QAa-\LAa-\EAa-\E"
"Aa\\-aa\\-Aa\\-"
* #?"\U\QAa-\LAa-\EAa-\E"
"AA\\-aa-Aa-" ;; note that only the first hyphen is quoted now
Quoting characters with \Q is especially helpful if you want to interpolate a string verbatim into a regular expression.

If a backslash is placed at the end of a line, it works as the tilde newline directive to Common Lisp's FORMAT function. That is, the newline immediately following the backslash and any non-newline whitespace characters after the newline are ignored. This escape sequence allows to break long string literals into several lines of code, so as to maintain convenient line width and indentation of code. 

* #?"@@ -1,11 +1,12 @@\n Th\n-e\n+at\n  quick b\n\
     @@ -22,18 +22,17 @@\n jump\n-s\n+ed\n  over \n\
     -the\n+a\n  laz\n"
"@@ -1,11 +1,12 @@
 Th
-e
+at
  quick b
@@ -22,18 +22,17 @@
 jump
-s
+ed
  over 
-the
+a
  laz
"

All other characters following a backslash are left as is and inserted into the string. This is also true for the backslash itself, for $, @, and - as mentioned above - for the outer closing delimiter. 

* #?"\"\\f\o\o\""
"\"\\foo\""

 

Interpolation

If a $ (dollar sign) or @ (at-sign) is seen and followed by one of { (left curly bracket), [ (left square bracket), < (less than), or ( (left parenthesis) (but see *INNER-DELIMITERS*), the characters following the bracket are read up to the corresponding closing (right) bracketing character. They are read as Lisp forms and treated as an implicit progn the result of which will be inserted into the string at execution time. (Technically this is done by temporarily making the syntax of the closing right bracketing character in the current readtable be the same as the syntax of ) (right parenthesis) in the standard readtable and then reading the forms with READ-DELIMITED-LIST.)

The result of the forms following a $ (dollar sign) is inserted into the string as with PRINC at execution time. The result of the forms following an @ (at-sign) must be a list. The elements of this list are inserted into the string one by one as with PRINC interspersed (or "joined" if you prefer) with the contents of the variable *LIST-DELIMITER* (also inserted as with PRINC).

Every other $ or @ is inserted into the string as is. 

* (let* ((a "foo")
         (b #\Space)
         (c "bar")
         (d (list a b c))
         (x 40))
    (values #?"$ @"
            #?"$(a)"
            #?"$<a>$[b]"
            #?"\U${a}\E \u${a}"
            (let ((*list-delimiter* #\*))
              #?"@{d}")
            (let ((*list-delimiter* ""))
              #?"@{d}")
            #?"The result is ${(let ((y 2)) (+ x y))}"
            #?"${#?'${a} ${c}'} ${x}"))  ;; note the embedded CL-INTERPOL string
"$ @"
"foo"
"foo "
"FOO Foo"
"foo* *bar"
"foo bar"
"The result is 42"
"foo bar 40"
Interpolations are realized by creating code which is evaluated at execution time. For example, the expansion of #?"\Q-\l${(let ((x 40)) (+ x 2))}" might look like this: 
(with-output-to-string (#:G1098)
  (write-string (cl-ppcre:quote-meta-chars
                 (with-output-to-string (#:G1099)
                   (write-string "-" #:G1099)
                   (let ((#:G1100
                           (format nil "~A"
                                   (progn
                                     (let ((x 40))
                                       (+ x 2))))))
                     (when (plusp (length #:G1100))
                       (setf (char #:G1100 0)
                               (char-downcase (char #:G1100 0))))
                     (write-string #:G1100 #:G1099))))
                #:G1098))
However, if a string read by CL-INTERPOL does not contain interpolations, it is guaranteed to be expanded into a constant Lisp string.
 

Support for CL-PPCRE/Perl regular expressions

Beyond what has been explained above CL-INTERPOL can support Perl regular expression syntax. This feature is mainly intended for use with CL-PPCRE (version 0.7.0 or higher). The regular expression mode is switched on if the opening outer delimiter is a / (slash) - but see *REGEX-DELIMITERS*. It is also on if there's an r (lowercase or uppercase) in front of the opening outer delimiter. If there's also an x (lowercase or uppercase) in front of the opening outer delimiter (but behind the r if it's there), the string will be read in extended mode (see man perlre for a detailed explanation). In these modes the following things are different from what's described above:
  • \p, \P, \w, \W, \s, \S, \d, and \D are never converted to their unescaped (backslash-less) counterparts because they have or can have a special meaning in regular expressions. 
    * #?#\W\o\w#
"Wow"
* #?/\W\o\w/
"\\Wo\\w"
* #?r#\W\o\w#
"\\Wo\\w"
  • \k, \b, \B, \a, \z, and \Z are only converted to their unescaped (backslash-less) counterparts if they are within a character class (i.e. enclosed in square brackets) because they have a special meaning in regular expressions outside of character classes. 
    * #?/\A[\A-\Z]\Z/
"\\A[A-Z]\\Z"
* #?/\A[]\A-\Z]\Z/
"\\A[]A-Z]\\Z"
* #?/\A[^]\A-\Z]\Z/
"\\A[^]A-Z]\\Z"
  • Octal representations of character codes are left as is and not expanded if they're not within character classes and could possible denote a back-reference to a register group. (Actually, this also holds for sequences starting with \8 or \9 in compliance with Perl.) 
    * (map 'list #'identity #?/\0\40[\40]/)
(#\Null #\\ #\4 #\0 #\[ #\Space #\])
  • Characters which are represented by octal or hexadecimal codes, by names, or escaped by a preceding backslash are 'protected' by a backslash if they have a special meaning within regular expressions. 
    * #?"\x2B\\\.[\.]"
"+\\.[.]"
* #?/\x2B\\\.[\.]/
"\\+\\\\\\.[.]"  ;; note that the second dot is not 'protected' because it's in a character class
  • Embedded comments (like (?#...)) are removed from the string - with the exception that they are replaced with (?:) (a non-capturing, empty group which will be otimized away by CL-PPCRE) if the next character is a hexadecimal digit. 
    * #?/A(?#n embedded) comment/
"A comment"
* #?/\1(?#)2/
"\\1(?:)2"  ;; instead of "\\12" which has a different meaning to the regex engine
  • Interpolation only works with curly brackets (and only if they haven't been removed from *INNER-DELIMITERS*). 
    * (let ((a 42))
    (values #?"$(a)" #?"${a}"
            #?/$(a)/ #?/${a}/))
"42"
"42"
"$(a)"
"42"
  • In extended mode whitespace characters (one of #\Space, #\Tab, #\Linefeed, #\Return, and #\Page) are removed from the string unless they are escaped by a backslash or within a character class. 
    * #?/ \ [ ]/
"  [ ]"  ;; two spaces in front of square bracket
* #?x/ \ [ ]/
" [ ]"  ;; one space in front of square bracket
  • In extended mode end-of-line comments (starting with # (sharpsign) and ending with the newline character) are removed from the string - with the exception that they are replaced with (?:) (a non-capturing, empty group which will be otimized away by CL-PPCRE) if the next character is a hexadecimal digit. 
    * #?x/[a-z]#blabla
\$/
"[a-z]$"
* #?x/\1#
2/
"\\1(?:)2"  ;; instead of "\\12" which has a different meaning to the regex engine
If all this seems complicated, just keep in mind that this mode is meant so that you can feed strings to CL-PPCRE exactly as if you had written them for Perl (without counting Lisp backslashes versus Perl backslashes). However, you should not use both CL-INTERPOL's as well as CL-PPCRE's extended mode at once because this might lead to errors. (CL-PPCRE's will, e.g., throw away whitespace which had been escaped in CL-INTERPOL.) 
* (let ((scanner (cl-ppcre:create-scanner " a\\ a " :extended-mode t)))
    (cl-ppcre:scan scanner "a a"))
0
3
#()
#()
* (let ((scanner (cl-ppcre:create-scanner #?x/ a\ a /)))
    (cl-ppcre:scan scanner "a a"))
0
3
#()
#()
* (let ((scanner (cl-ppcre:create-scanner #?x/ a\ a / :extended-mode t)))
    ;; wrong, because extended mode is applied twice
    (cl-ppcre:scan scanner "a a"))
NIL

 

The CL-INTERPOL dictionary

CL-INTERPOL exports the following symbols:


[Macro]
enable-interpol-syntax &key modify-*readtable*=> |

This is used to enable the reader syntax described above. This macro expands into an EVAL-WHEN so that if you use it as a top-level form in a file to be loaded and/or compiled it'll do what you expect.

If the parameter modify-*readtable* is NIL (the default) this will push the current readtable on a stack so that matching calls of ENABLE-INTERPOL-SYNTAX and DISABLE-INTERPOL-SYNTAX can nest. Otherwise the current value of *readtable* will be modified.

Note: by default the reader syntax is not enabled after loading CL-INTERPOL.


[Macro]
disable-interpol-syntax => |


This is used to disable the reader syntax described above. This macro expands into an EVAL-WHEN so that if you use it as a top-level form in a file to be loaded and/or compiled it'll do what you expect. Technically this'll pop a readtable from the stack described above so that matching calls of ENABLE-INTERPOL-SYNTAX and DISABLE-INTERPOL-SYNTAX can nest. If the stack is empty (i.e. when DISABLE-INTERPOL-SYNTAX is called without a preceding call to ENABLE-INTERPOL-SYNTAX), the standard readtable is re-established.


[Special variable]
*list-delimiter*


The contents of this variable are inserted between the elements of a list interpolated with @ at execution time. They are inserted as with PRINC. The default value is " " (one space).


[Special variable]
*outer-delimiters*


This is a list of acceptable outer delimiters. The elements of this list are either characters or dotted pairs the car and cdr of which are characters. A character denotes a delimiter like ' (apostrophe) which is the opening as well as the closing delimiter. A dotted pair like (#\{ . #\}) denotes a pair of matching bracketing delimiters. The name of this list is exported so that you can customize CL-INTERPOL's behaviour by removing elements from this list, you are advised not to add any - specifically you should not add alphanumeric characters or the backslash. Note that this variable has effect at read time so you probably need to wrap an EVAL-WHEN around forms that change its value. The default value is 
'((#\( . #\))
  (#\{ . #\})
  (#\< . #\>)
  (#\[ . #\])
  #\/ #\| #\" #\' #\#))


[Special variable]
*inner-delimiters*


This is a list of acceptable delimiters for interpolation. The elements of this list are either characters or dotted pairs the car and cdr of which are characters. A character denotes a delimiter like ' (apostrophe) which is the opening as well as the closing delimiter. A dotted pair like (#\{ . #\}) denotes a pair of matching bracketing delimiters. The name of this list is exported so that you can customize CL-INTERPOL's behaviour by removing elements from this list, you are advised not to add any - specifically you should not add alphanumeric characters or the backslash. Note that this variable has effect at read time so you probably need to wrap an EVAL-WHEN around forms that change its value. The default value is 
'((#\( . #\))
  (#\{ . #\})
  (#\< . #\>)
  (#\[ . #\]))


[Special variable]
*interpolate-format-directives*


This is a boolean value which determines if the ~ character signals the start of an inline format directive. When T sequences with this form: 
~paramsX(form)
Will be passed to cl:format, with FORM as the one and only argument and params and X are the format directive (with the same syntax as in cl:format). Examples: 
* (let ((x 42)) #?"An integer: ~D(x) ~X(x) ~8,'0B(x)")
"An integer: 42 2A 00101010"


[Special variable]
*regex-delimiters*


This is a list of opening outer delimiters which automatically switch CL-INTERPOL's regular expression mode on. The elements of this list are characters. An element of this list must also be an element of *OUTER-DELIMITERS* to have any effect. Note that this variable has effect at read time so you probably need to wrap an EVAL-WHEN around forms that change its value. The default value is the one-element list '(#\/).

 

Known issues

{n,m} modifiers in extended mode

CL-INTERPOL treats 'potential' {n,m} modifiers differently from CL-PPCRE or Perl in extended mode if they contain whitespace. CL-INTERPOL will simply remove the whitespace and thus make them valid modifiers for CL-PPCRE while Perl will remove the whitespace but not recognize the character sequence as a modifier. CL-PPCRE behaves like Perl - you decide if this behaviour is sane...:) 
* (let ((scanner (cl-ppcre:create-scanner "^a{3, 3}$" :extended-mode t)))
    (cl-ppcre:scan scanner "aaa"))
NIL
* (let ((scanner (cl-ppcre:create-scanner "^a{3, 3}$" :extended-mode t)))
    (cl-ppcre:scan scanner "a{3,3}"))
0
6
#()
#()
* (cl-ppcre:scan #?x/^a{3, 3}$/ "aaa")
0
3
#()
#()
* (cl-ppcre:scan #?x/^a{3, 3}$/ "a{3, 3}")
NIL

 

Acknowledgements

Thanks to Peter Seibel who had the idea to do this to make CL-PPCRE more convenient. Buy his book!!!

$Header: /usr/local/cvsrep/cl-interpol/doc/index.html,v 1.39 2008/07/25 12:52:00 edi Exp $

BACK TO MY HOMEPAGE cl-interpol-0.2.6/util.lisp0000644000004100000410000001165012757757171015673 0ustar www-datawww-data;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-INTERPOL; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-interpol/util.lisp,v 1.12 2008/07/23 14:41:37 edi Exp $ ;;; Copyright (c) 2003-2008, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions ;;; are met: ;;; * Redistributions of source code must retain the above copyright ;;; notice, this list of conditions and the following disclaimer. ;;; * Redistributions in binary form must reproduce the above ;;; copyright notice, this list of conditions and the following ;;; disclaimer in the documentation and/or other materials ;;; provided with the distribution. ;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED ;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED ;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY ;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE ;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS ;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, ;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (in-package :cl-interpol) (define-condition simple-reader-error (simple-condition reader-error) () (:documentation "A reader error which can be signalled by ERROR.")) (defmacro signal-reader-error (format-control &rest format-arguments) "Like ERROR but signals a SIMPLE-READER-ERROR for the stream *STREAM*." `(error 'simple-reader-error :stream *stream* :format-control ,format-control :format-arguments (list ,@format-arguments))) (defun string-list-to-string (string-list) "Concatenates a list of strings to one string." ;; this function was originally provided by JP Massar for CL-PPCRE; ;; note that we can't use APPLY with CONCATENATE here because of ;; CALL-ARGUMENTS-LIMIT (let ((total-size 0)) (dolist (string string-list) (incf total-size (length string))) (let ((result-string (make-array total-size :element-type 'character)) (curr-pos 0)) (dolist (string string-list) (replace result-string string :start1 curr-pos) (incf curr-pos (length string))) result-string))) (defun get-end-delimiter (start-delimiter delimiters &key errorp) "Find the closing delimiter corresponding to the opening delimiter START-DELIMITER in a list DELIMITERS which is formatted like *OUTER-DELIMITERS*. If ERRORP is true, signal an error if none was found, otherwise return NIL." (loop for element in delimiters if (eql start-delimiter element) do (return-from get-end-delimiter start-delimiter) else if (and (consp element) (char= start-delimiter (car element))) do (return-from get-end-delimiter (cdr element))) (when errorp (signal-reader-error "~S not allowed as a delimiter here" start-delimiter))) (declaim (inline make-collector)) (defun make-collector () "Create an empty string which can be extended by VECTOR-PUSH-EXTEND." (make-array 0 :element-type 'character :fill-pointer t :adjustable t)) (declaim (inline make-char-from-code)) (defun make-char-from-code (number) "Create character from char-code NUMBER. NUMBER can be NIL which is interpreted as 0." ;; Only look at rightmost eight bits in compliance with Perl (let ((code (logand #o377 (or number 0)))) (or (and (< code char-code-limit) (code-char code)) (signal-reader-error "No character for char-code #x~X" number)))) (declaim (inline lower-case-p*)) (defun lower-case-p* (char) "Whether CHAR is a character which has case and is lowercase." (or (not (both-case-p char)) (lower-case-p char))) (defmacro read-char* () "Convenience macro because we always read from the same string with the same arguments." `(read-char *stream* t nil t)) (defmacro peek-char* () "Convenience macro because we always peek at the same string with the same arguments." `(peek-char nil *stream* t nil t)) (declaim (inline copy-readtable*)) (defun copy-readtable* () "Returns a copy of the readtable which was current when INTERPOL-READER was invoked. Memoizes its result." (or *readtable-copy* (setq *readtable-copy* (copy-readtable)))) (declaim (inline nsubvec)) (defun nsubvec (sequence start &optional (end (length sequence))) "Return a subvector by pointing to location in original vector." (make-array (- end start) :element-type (array-element-type sequence) :displaced-to sequence :displaced-index-offset start)) cl-interpol-0.2.6/CHANGELOG0000644000004100000410000000250312757757171015234 0ustar www-datawww-dataVersion 0.2.6 2016-08-26 Merge pull request #5 from agrostis/master (Hans Hübner) Followup to 100efc6: added documentation and tests. (Boris Smilga) Followup to 100efc6: ignore non-newline whitespaces only, as per CLHS 22.3.9.3. (Boris Smilga) Merge pull request #4 from agrostis/master (Hans Hübner) Backspace + newline as an escape sequence emulating tilde + newline in CL:FORMAT. (Boris Smilga) Version 0.2.5 2015-11-22 Fix docstring as suggested by Stas (Hans Hübner) Version 0.2.4 2015-11-22 Exnabled direct use of cl-interpol-reader (Mike Maul) Version 0.2.3 2014-11-28 update support info (Hans Huebner) Version 0.2.2 2013-10-04 inline format directive syntax and an extra argument to enable-interpol-syntax (Marco Baringer) Version 0.2.1 2008-07-25 Fixed typo in HTML documentation Version 0.2.0 2008-07-24 Base Unicode support on CL-UNICODE Add new CL-PPCRE special characters for named registers and named properties Re-architecture test suite Version 0.1.2 2004-12-16 Added hyperdoc support Added :CL-INTERPOL to *FEATURES* Typo fixes in doc/index.html Version 0.1.1 2003-12-21 Fixed an embarrassing bug where COLLECTOR was re-used in read.lisp (reported by Hans Hübner) More tests, better failure reporting Tried to increase readability of docs Mentioned Debian and Gentoo in docs Version 0.1.0 2003-10-22 Initial release cl-interpol-0.2.6/test/0000755000004100000410000000000012757757171015001 5ustar www-datawww-datacl-interpol-0.2.6/test/create_perl_tests.pl0000644000004100000410000000450012757757171021044 0ustar www-datawww-data#!/usr/bin/perl ### $Header: /usr/local/cvsrep/cl-interpol/test/create_perl_tests.pl,v 1.2 2008/07/23 14:30:45 edi Exp $ ### Copyright (c) 2003-2008, Dr. Edmund Weitz. All rights reserved. ### Redistribution and use in source and binary forms, with or without ### modification, are permitted provided that the following conditions ### are met: ### * Redistributions of source code must retain the above copyright ### notice, this list of conditions and the following disclaimer. ### * Redistributions in binary form must reproduce the above ### copyright notice, this list of conditions and the following ### disclaimer in the documentation and/or other materials ### provided with the distribution. ### THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED ### OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED ### WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ### ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY ### DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL ### DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE ### GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS ### INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, ### WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING ### NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ### SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. my @chars = qw(\Q \L \U \E \l \u); sub combine { my $delim = shift; my @result = (); foreach my $char (@chars) { foreach my $string (@_) { push @result, "$char$delim$string"; } } @result; } sub quote { local $_ = shift; s/\\/\\\\/g; $_; } print <<'HEAD'; ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-UNICODE-TEST; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-interpol/test/create_perl_tests.pl,v 1.2 2008/07/23 14:30:45 edi Exp $ ;;; some simple tests for CL-INTERPOL which were generated by a Perl script HEAD foreach my $a (('Aa-', 'aA-')) { my $counter = 0; my @arr = @chars; while ($counter++ < 4) { foreach my $str (@arr) { print "(let ((a \"$a\"))\n"; my $test = "\${a}$str\${a}"; print " (string= #?\"$test\" \"" . (quote eval "\"$test\"") . "\"))\n"; } @arr = combine '${a}', @arr; } } print "\n"; cl-interpol-0.2.6/test/packages.lisp0000644000004100000410000000315312757757171017452 0ustar www-datawww-data;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-interpol/test/packages.lisp,v 1.2 2008/07/23 13:58:44 edi Exp $ ;;; Copyright (c) 2002-2008, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions ;;; are met: ;;; * Redistributions of source code must retain the above copyright ;;; notice, this list of conditions and the following disclaimer. ;;; * Redistributions in binary form must reproduce the above ;;; copyright notice, this list of conditions and the following ;;; disclaimer in the documentation and/or other materials ;;; provided with the distribution. ;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED ;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED ;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY ;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE ;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS ;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, ;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (in-package :cl-user) (defpackage :cl-interpol-test (:use :cl :cl-interpol :cl-unicode) (:export :run-all-tests)) cl-interpol-0.2.6/test/perltests0000644000004100000410000076371512757757171016774 0ustar www-datawww-data;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-UNICODE-TEST; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-interpol/test/perltests,v 1.2 2008/07/23 14:31:33 edi Exp $ ;;; some simple tests for CL-INTERPOL which were generated by a Perl script (let ((a "Aa-")) (string= #?"${a}\Q${a}" "Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}" "Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}" "Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}" "Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}" "Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}" "Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}" "Aa-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}" "Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}" "Aa-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}" "Aa-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}" "Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}" "Aa-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}" "Aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}" "Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}" "Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}" "Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}" "Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}" "Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}" "Aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}" "Aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}" "Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}" "Aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}" "Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}" "Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}" "Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}" "Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}" "Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}" "Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}" "Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}" "Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}" "Aa-aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}" "Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}" "Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}" "Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}" "Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}" "Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}" "Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}" "Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}" "Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}" "Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}" "Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}" "Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\Q${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\L${a}" "Aa-Aa\\-Aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\U${a}" "Aa-Aa\\-Aa\\\\\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\E${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\l${a}" "Aa-Aa\\-Aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\u${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\Q${a}" "Aa-Aa\\-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\L${a}" "Aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\U${a}" "Aa-Aa\\-aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\E${a}" "Aa-Aa\\-aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\l${a}" "Aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\u${a}" "Aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\Q${a}" "Aa-Aa\\-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\L${a}" "Aa-Aa\\-AA\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\U${a}" "Aa-Aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\E${a}" "Aa-Aa\\-AA\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\l${a}" "Aa-Aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\u${a}" "Aa-Aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\Q${a}" "Aa-Aa\\-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\L${a}" "Aa-Aa\\-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\U${a}" "Aa-Aa\\-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\E${a}" "Aa-Aa\\-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\l${a}" "Aa-Aa\\-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\u${a}" "Aa-Aa\\-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\Q${a}" "Aa-Aa\\-aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\L${a}" "Aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\U${a}" "Aa-Aa\\-aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\E${a}" "Aa-Aa\\-aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\l${a}" "Aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\u${a}" "Aa-Aa\\-aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\Q${a}" "Aa-Aa\\-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\L${a}" "Aa-Aa\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\U${a}" "Aa-Aa\\-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\E${a}" "Aa-Aa\\-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\l${a}" "Aa-Aa\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\u${a}" "Aa-Aa\\-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\Q${a}" "Aa-aa-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\L${a}" "Aa-aa-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\U${a}" "Aa-aa-aa\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\E${a}" "Aa-aa-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\l${a}" "Aa-aa-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\u${a}" "Aa-aa-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\Q${a}" "Aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\L${a}" "Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\U${a}" "Aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\E${a}" "Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\l${a}" "Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\u${a}" "Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\Q${a}" "Aa-aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\L${a}" "Aa-aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\U${a}" "Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\E${a}" "Aa-aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\l${a}" "Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\u${a}" "Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\Q${a}" "Aa-aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\L${a}" "Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\U${a}" "Aa-aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\E${a}" "Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\l${a}" "Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\u${a}" "Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\Q${a}" "Aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\L${a}" "Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\U${a}" "Aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\E${a}" "Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\l${a}" "Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\u${a}" "Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\Q${a}" "Aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\L${a}" "Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\U${a}" "Aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\E${a}" "Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\l${a}" "Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\u${a}" "Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\Q${a}" "Aa-AA-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\L${a}" "Aa-AA-AA\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\U${a}" "Aa-AA-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\E${a}" "Aa-AA-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\l${a}" "Aa-AA-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\u${a}" "Aa-AA-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\Q${a}" "Aa-AA-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\L${a}" "Aa-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\U${a}" "Aa-AA-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\E${a}" "Aa-AA-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\l${a}" "Aa-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\u${a}" "Aa-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\Q${a}" "Aa-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\L${a}" "Aa-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\U${a}" "Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\E${a}" "Aa-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\l${a}" "Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\u${a}" "Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\Q${a}" "Aa-AA-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\L${a}" "Aa-AA-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\U${a}" "Aa-AA-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\E${a}" "Aa-AA-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\l${a}" "Aa-AA-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\u${a}" "Aa-AA-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\Q${a}" "Aa-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\L${a}" "Aa-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\U${a}" "Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\E${a}" "Aa-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\l${a}" "Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\u${a}" "Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\Q${a}" "Aa-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\L${a}" "Aa-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\U${a}" "Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\E${a}" "Aa-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\l${a}" "Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\u${a}" "Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\Q${a}" "Aa-Aa-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\L${a}" "Aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\U${a}" "Aa-Aa-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\E${a}" "Aa-Aa-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\l${a}" "Aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\u${a}" "Aa-Aa-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\Q${a}" "Aa-Aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\L${a}" "Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\U${a}" "Aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\E${a}" "Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\l${a}" "Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\u${a}" "Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\Q${a}" "Aa-Aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\L${a}" "Aa-Aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\U${a}" "Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\E${a}" "Aa-Aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\l${a}" "Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\u${a}" "Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\Q${a}" "Aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\L${a}" "Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\U${a}" "Aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\E${a}" "Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\l${a}" "Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\u${a}" "Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\Q${a}" "Aa-Aa-aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\L${a}" "Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\U${a}" "Aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\E${a}" "Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\l${a}" "Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\u${a}" "Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\Q${a}" "Aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\L${a}" "Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\U${a}" "Aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\E${a}" "Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\l${a}" "Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\u${a}" "Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\Q${a}" "Aa-aa-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\L${a}" "Aa-aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\U${a}" "Aa-aa-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\E${a}" "Aa-aa-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\l${a}" "Aa-aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\u${a}" "Aa-aa-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\Q${a}" "Aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\L${a}" "Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\U${a}" "Aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\E${a}" "Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\l${a}" "Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\u${a}" "Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\Q${a}" "Aa-aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\L${a}" "Aa-aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\U${a}" "Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\E${a}" "Aa-aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\l${a}" "Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\u${a}" "Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\Q${a}" "Aa-aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\L${a}" "Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\U${a}" "Aa-aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\E${a}" "Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\l${a}" "Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\u${a}" "Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\Q${a}" "Aa-aa-aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\L${a}" "Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\U${a}" "Aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\E${a}" "Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\l${a}" "Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\u${a}" "Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\Q${a}" "Aa-aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\L${a}" "Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\U${a}" "Aa-aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\E${a}" "Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\l${a}" "Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\u${a}" "Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\Q${a}" "Aa-Aa-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\L${a}" "Aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\U${a}" "Aa-Aa-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\E${a}" "Aa-Aa-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\l${a}" "Aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\u${a}" "Aa-Aa-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\Q${a}" "Aa-Aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\L${a}" "Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\U${a}" "Aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\E${a}" "Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\l${a}" "Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\u${a}" "Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\Q${a}" "Aa-Aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\L${a}" "Aa-Aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\U${a}" "Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\E${a}" "Aa-Aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\l${a}" "Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\u${a}" "Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\Q${a}" "Aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\L${a}" "Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\U${a}" "Aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\E${a}" "Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\l${a}" "Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\u${a}" "Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\Q${a}" "Aa-Aa-aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\L${a}" "Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\U${a}" "Aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\E${a}" "Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\l${a}" "Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\u${a}" "Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\Q${a}" "Aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\L${a}" "Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\U${a}" "Aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\E${a}" "Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\l${a}" "Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\u${a}" "Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\Q${a}\Q${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\\\\\\\\\\\\\-Aa\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\Q${a}\L${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\\\\\\\\\\\\\-aa\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\Q${a}\U${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\\\\\\\\\\\\\-AA\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\Q${a}\E${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\\\\\\\\\\\\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\Q${a}\l${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\\\\\\\\\\\\\-aa\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\Q${a}\u${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\\\\\\\\\\\\\-Aa\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\L${a}\Q${a}" "Aa-Aa\\-Aa\\\\\\-aa\\\\\\-aa\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\L${a}\L${a}" "Aa-Aa\\-Aa\\\\\\-aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\L${a}\U${a}" "Aa-Aa\\-Aa\\\\\\-aa\\\\\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\L${a}\E${a}" "Aa-Aa\\-Aa\\\\\\-aa\\\\\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\L${a}\l${a}" "Aa-Aa\\-Aa\\\\\\-aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\L${a}\u${a}" "Aa-Aa\\-Aa\\\\\\-aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\U${a}\Q${a}" "Aa-Aa\\-Aa\\\\\\-AA\\\\\\-AA\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\U${a}\L${a}" "Aa-Aa\\-Aa\\\\\\-AA\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\U${a}\U${a}" "Aa-Aa\\-Aa\\\\\\-AA\\\\\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\U${a}\E${a}" "Aa-Aa\\-Aa\\\\\\-AA\\\\\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\U${a}\l${a}" "Aa-Aa\\-Aa\\\\\\-AA\\\\\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\U${a}\u${a}" "Aa-Aa\\-Aa\\\\\\-AA\\\\\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\E${a}\Q${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\E${a}\L${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\E${a}\U${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\E${a}\E${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\E${a}\l${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\E${a}\u${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\l${a}\Q${a}" "Aa-Aa\\-Aa\\\\\\-aa\\\\\\-Aa\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\l${a}\L${a}" "Aa-Aa\\-Aa\\\\\\-aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\l${a}\U${a}" "Aa-Aa\\-Aa\\\\\\-aa\\\\\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\l${a}\E${a}" "Aa-Aa\\-Aa\\\\\\-aa\\\\\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\l${a}\l${a}" "Aa-Aa\\-Aa\\\\\\-aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\l${a}\u${a}" "Aa-Aa\\-Aa\\\\\\-aa\\\\\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\u${a}\Q${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\\\\\-Aa\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\u${a}\L${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\u${a}\U${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\\\\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\u${a}\E${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\\\\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\u${a}\l${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\Q${a}\u${a}\u${a}" "Aa-Aa\\-Aa\\\\\\-Aa\\\\\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\Q${a}\Q${a}" "Aa-Aa\\-aa\\-aa\\\\\\-aa\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\Q${a}\L${a}" "Aa-Aa\\-aa\\-aa\\\\\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\Q${a}\U${a}" "Aa-Aa\\-aa\\-aa\\\\\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\Q${a}\E${a}" "Aa-Aa\\-aa\\-aa\\\\\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\Q${a}\l${a}" "Aa-Aa\\-aa\\-aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\Q${a}\u${a}" "Aa-Aa\\-aa\\-aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\L${a}\Q${a}" "Aa-Aa\\-aa\\-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\L${a}\L${a}" "Aa-Aa\\-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\L${a}\U${a}" "Aa-Aa\\-aa\\-aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\L${a}\E${a}" "Aa-Aa\\-aa\\-aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\L${a}\l${a}" "Aa-Aa\\-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\L${a}\u${a}" "Aa-Aa\\-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\U${a}\Q${a}" "Aa-Aa\\-aa\\-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\U${a}\L${a}" "Aa-Aa\\-aa\\-AA\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\U${a}\U${a}" "Aa-Aa\\-aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\U${a}\E${a}" "Aa-Aa\\-aa\\-AA\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\U${a}\l${a}" "Aa-Aa\\-aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\U${a}\u${a}" "Aa-Aa\\-aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\E${a}\Q${a}" "Aa-Aa\\-aa\\-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\E${a}\L${a}" "Aa-Aa\\-aa\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\E${a}\U${a}" "Aa-Aa\\-aa\\-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\E${a}\E${a}" "Aa-Aa\\-aa\\-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\E${a}\l${a}" "Aa-Aa\\-aa\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\E${a}\u${a}" "Aa-Aa\\-aa\\-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\l${a}\Q${a}" "Aa-Aa\\-aa\\-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\l${a}\L${a}" "Aa-Aa\\-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\l${a}\U${a}" "Aa-Aa\\-aa\\-aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\l${a}\E${a}" "Aa-Aa\\-aa\\-aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\l${a}\l${a}" "Aa-Aa\\-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\l${a}\u${a}" "Aa-Aa\\-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\u${a}\Q${a}" "Aa-Aa\\-aa\\-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\u${a}\L${a}" "Aa-Aa\\-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\u${a}\U${a}" "Aa-Aa\\-aa\\-aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\u${a}\E${a}" "Aa-Aa\\-aa\\-aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\u${a}\l${a}" "Aa-Aa\\-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\L${a}\u${a}\u${a}" "Aa-Aa\\-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\Q${a}\Q${a}" "Aa-Aa\\-AA\\-AA\\\\\\-AA\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\Q${a}\L${a}" "Aa-Aa\\-AA\\-AA\\\\\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\Q${a}\U${a}" "Aa-Aa\\-AA\\-AA\\\\\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\Q${a}\E${a}" "Aa-Aa\\-AA\\-AA\\\\\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\Q${a}\l${a}" "Aa-Aa\\-AA\\-AA\\\\\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\Q${a}\u${a}" "Aa-Aa\\-AA\\-AA\\\\\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\L${a}\Q${a}" "Aa-Aa\\-AA\\-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\L${a}\L${a}" "Aa-Aa\\-AA\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\L${a}\U${a}" "Aa-Aa\\-AA\\-aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\L${a}\E${a}" "Aa-Aa\\-AA\\-aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\L${a}\l${a}" "Aa-Aa\\-AA\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\L${a}\u${a}" "Aa-Aa\\-AA\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\U${a}\Q${a}" "Aa-Aa\\-AA\\-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\U${a}\L${a}" "Aa-Aa\\-AA\\-AA\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\U${a}\U${a}" "Aa-Aa\\-AA\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\U${a}\E${a}" "Aa-Aa\\-AA\\-AA\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\U${a}\l${a}" "Aa-Aa\\-AA\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\U${a}\u${a}" "Aa-Aa\\-AA\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\E${a}\Q${a}" "Aa-Aa\\-AA\\-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\E${a}\L${a}" "Aa-Aa\\-AA\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\E${a}\U${a}" "Aa-Aa\\-AA\\-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\E${a}\E${a}" "Aa-Aa\\-AA\\-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\E${a}\l${a}" "Aa-Aa\\-AA\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\E${a}\u${a}" "Aa-Aa\\-AA\\-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\l${a}\Q${a}" "Aa-Aa\\-AA\\-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\l${a}\L${a}" "Aa-Aa\\-AA\\-AA\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\l${a}\U${a}" "Aa-Aa\\-AA\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\l${a}\E${a}" "Aa-Aa\\-AA\\-AA\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\l${a}\l${a}" "Aa-Aa\\-AA\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\l${a}\u${a}" "Aa-Aa\\-AA\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\u${a}\Q${a}" "Aa-Aa\\-AA\\-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\u${a}\L${a}" "Aa-Aa\\-AA\\-AA\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\u${a}\U${a}" "Aa-Aa\\-AA\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\u${a}\E${a}" "Aa-Aa\\-AA\\-AA\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\u${a}\l${a}" "Aa-Aa\\-AA\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\U${a}\u${a}\u${a}" "Aa-Aa\\-AA\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\Q${a}\Q${a}" "Aa-Aa\\-Aa-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\Q${a}\L${a}" "Aa-Aa\\-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\Q${a}\U${a}" "Aa-Aa\\-Aa-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\Q${a}\E${a}" "Aa-Aa\\-Aa-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\Q${a}\l${a}" "Aa-Aa\\-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\Q${a}\u${a}" "Aa-Aa\\-Aa-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\L${a}\Q${a}" "Aa-Aa\\-Aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\L${a}\L${a}" "Aa-Aa\\-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\L${a}\U${a}" "Aa-Aa\\-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\L${a}\E${a}" "Aa-Aa\\-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\L${a}\l${a}" "Aa-Aa\\-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\L${a}\u${a}" "Aa-Aa\\-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\U${a}\Q${a}" "Aa-Aa\\-Aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\U${a}\L${a}" "Aa-Aa\\-Aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\U${a}\U${a}" "Aa-Aa\\-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\U${a}\E${a}" "Aa-Aa\\-Aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\U${a}\l${a}" "Aa-Aa\\-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\U${a}\u${a}" "Aa-Aa\\-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\E${a}\Q${a}" "Aa-Aa\\-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\E${a}\L${a}" "Aa-Aa\\-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\E${a}\U${a}" "Aa-Aa\\-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\E${a}\E${a}" "Aa-Aa\\-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\E${a}\l${a}" "Aa-Aa\\-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\E${a}\u${a}" "Aa-Aa\\-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\l${a}\Q${a}" "Aa-Aa\\-Aa-aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\l${a}\L${a}" "Aa-Aa\\-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\l${a}\U${a}" "Aa-Aa\\-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\l${a}\E${a}" "Aa-Aa\\-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\l${a}\l${a}" "Aa-Aa\\-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\l${a}\u${a}" "Aa-Aa\\-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\u${a}\Q${a}" "Aa-Aa\\-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\u${a}\L${a}" "Aa-Aa\\-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\u${a}\U${a}" "Aa-Aa\\-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\u${a}\E${a}" "Aa-Aa\\-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\u${a}\l${a}" "Aa-Aa\\-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\E${a}\u${a}\u${a}" "Aa-Aa\\-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\Q${a}\Q${a}" "Aa-Aa\\-aa\\-Aa\\\\\\-Aa\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\Q${a}\L${a}" "Aa-Aa\\-aa\\-Aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\Q${a}\U${a}" "Aa-Aa\\-aa\\-Aa\\\\\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\Q${a}\E${a}" "Aa-Aa\\-aa\\-Aa\\\\\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\Q${a}\l${a}" "Aa-Aa\\-aa\\-Aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\Q${a}\u${a}" "Aa-Aa\\-aa\\-Aa\\\\\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\L${a}\Q${a}" "Aa-Aa\\-aa\\-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\L${a}\L${a}" "Aa-Aa\\-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\L${a}\U${a}" "Aa-Aa\\-aa\\-aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\L${a}\E${a}" "Aa-Aa\\-aa\\-aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\L${a}\l${a}" "Aa-Aa\\-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\L${a}\u${a}" "Aa-Aa\\-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\U${a}\Q${a}" "Aa-Aa\\-aa\\-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\U${a}\L${a}" "Aa-Aa\\-aa\\-AA\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\U${a}\U${a}" "Aa-Aa\\-aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\U${a}\E${a}" "Aa-Aa\\-aa\\-AA\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\U${a}\l${a}" "Aa-Aa\\-aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\U${a}\u${a}" "Aa-Aa\\-aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\E${a}\Q${a}" "Aa-Aa\\-aa\\-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\E${a}\L${a}" "Aa-Aa\\-aa\\-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\E${a}\U${a}" "Aa-Aa\\-aa\\-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\E${a}\E${a}" "Aa-Aa\\-aa\\-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\E${a}\l${a}" "Aa-Aa\\-aa\\-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\E${a}\u${a}" "Aa-Aa\\-aa\\-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\l${a}\Q${a}" "Aa-Aa\\-aa\\-aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\l${a}\L${a}" "Aa-Aa\\-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\l${a}\U${a}" "Aa-Aa\\-aa\\-aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\l${a}\E${a}" "Aa-Aa\\-aa\\-aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\l${a}\l${a}" "Aa-Aa\\-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\l${a}\u${a}" "Aa-Aa\\-aa\\-aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\u${a}\Q${a}" "Aa-Aa\\-aa\\-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\u${a}\L${a}" "Aa-Aa\\-aa\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\u${a}\U${a}" "Aa-Aa\\-aa\\-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\u${a}\E${a}" "Aa-Aa\\-aa\\-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\u${a}\l${a}" "Aa-Aa\\-aa\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\l${a}\u${a}\u${a}" "Aa-Aa\\-aa\\-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\Q${a}\Q${a}" "Aa-Aa\\-Aa\\-Aa\\\\\\-Aa\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\Q${a}\L${a}" "Aa-Aa\\-Aa\\-Aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\Q${a}\U${a}" "Aa-Aa\\-Aa\\-Aa\\\\\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\Q${a}\E${a}" "Aa-Aa\\-Aa\\-Aa\\\\\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\Q${a}\l${a}" "Aa-Aa\\-Aa\\-Aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\Q${a}\u${a}" "Aa-Aa\\-Aa\\-Aa\\\\\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\L${a}\Q${a}" "Aa-Aa\\-Aa\\-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\L${a}\L${a}" "Aa-Aa\\-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\L${a}\U${a}" "Aa-Aa\\-Aa\\-aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\L${a}\E${a}" "Aa-Aa\\-Aa\\-aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\L${a}\l${a}" "Aa-Aa\\-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\L${a}\u${a}" "Aa-Aa\\-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\U${a}\Q${a}" "Aa-Aa\\-Aa\\-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\U${a}\L${a}" "Aa-Aa\\-Aa\\-AA\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\U${a}\U${a}" "Aa-Aa\\-Aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\U${a}\E${a}" "Aa-Aa\\-Aa\\-AA\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\U${a}\l${a}" "Aa-Aa\\-Aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\U${a}\u${a}" "Aa-Aa\\-Aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\E${a}\Q${a}" "Aa-Aa\\-Aa\\-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\E${a}\L${a}" "Aa-Aa\\-Aa\\-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\E${a}\U${a}" "Aa-Aa\\-Aa\\-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\E${a}\E${a}" "Aa-Aa\\-Aa\\-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\E${a}\l${a}" "Aa-Aa\\-Aa\\-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\E${a}\u${a}" "Aa-Aa\\-Aa\\-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\l${a}\Q${a}" "Aa-Aa\\-Aa\\-aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\l${a}\L${a}" "Aa-Aa\\-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\l${a}\U${a}" "Aa-Aa\\-Aa\\-aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\l${a}\E${a}" "Aa-Aa\\-Aa\\-aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\l${a}\l${a}" "Aa-Aa\\-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\l${a}\u${a}" "Aa-Aa\\-Aa\\-aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\u${a}\Q${a}" "Aa-Aa\\-Aa\\-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\u${a}\L${a}" "Aa-Aa\\-Aa\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\u${a}\U${a}" "Aa-Aa\\-Aa\\-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\u${a}\E${a}" "Aa-Aa\\-Aa\\-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\u${a}\l${a}" "Aa-Aa\\-Aa\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\Q${a}\u${a}\u${a}\u${a}" "Aa-Aa\\-Aa\\-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\Q${a}\Q${a}" "Aa-aa-aa\\-aa\\\\\\-aa\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\Q${a}\L${a}" "Aa-aa-aa\\-aa\\\\\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\Q${a}\U${a}" "Aa-aa-aa\\-aa\\\\\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\Q${a}\E${a}" "Aa-aa-aa\\-aa\\\\\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\Q${a}\l${a}" "Aa-aa-aa\\-aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\Q${a}\u${a}" "Aa-aa-aa\\-aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\L${a}\Q${a}" "Aa-aa-aa\\-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\L${a}\L${a}" "Aa-aa-aa\\-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\L${a}\U${a}" "Aa-aa-aa\\-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\L${a}\E${a}" "Aa-aa-aa\\-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\L${a}\l${a}" "Aa-aa-aa\\-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\L${a}\u${a}" "Aa-aa-aa\\-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\U${a}\Q${a}" "Aa-aa-aa\\-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\U${a}\L${a}" "Aa-aa-aa\\-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\U${a}\U${a}" "Aa-aa-aa\\-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\U${a}\E${a}" "Aa-aa-aa\\-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\U${a}\l${a}" "Aa-aa-aa\\-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\U${a}\u${a}" "Aa-aa-aa\\-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\E${a}\Q${a}" "Aa-aa-aa\\-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\E${a}\L${a}" "Aa-aa-aa\\-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\E${a}\U${a}" "Aa-aa-aa\\-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\E${a}\E${a}" "Aa-aa-aa\\-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\E${a}\l${a}" "Aa-aa-aa\\-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\E${a}\u${a}" "Aa-aa-aa\\-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\l${a}\Q${a}" "Aa-aa-aa\\-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\l${a}\L${a}" "Aa-aa-aa\\-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\l${a}\U${a}" "Aa-aa-aa\\-aa\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\l${a}\E${a}" "Aa-aa-aa\\-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\l${a}\l${a}" "Aa-aa-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\l${a}\u${a}" "Aa-aa-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\u${a}\Q${a}" "Aa-aa-aa\\-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\u${a}\L${a}" "Aa-aa-aa\\-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\u${a}\U${a}" "Aa-aa-aa\\-aa\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\u${a}\E${a}" "Aa-aa-aa\\-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\u${a}\l${a}" "Aa-aa-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\Q${a}\u${a}\u${a}" "Aa-aa-aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\Q${a}\Q${a}" "Aa-aa-aa-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\Q${a}\L${a}" "Aa-aa-aa-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\Q${a}\U${a}" "Aa-aa-aa-aa\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\Q${a}\E${a}" "Aa-aa-aa-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\Q${a}\l${a}" "Aa-aa-aa-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\Q${a}\u${a}" "Aa-aa-aa-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\L${a}\Q${a}" "Aa-aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\L${a}\L${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\L${a}\U${a}" "Aa-aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\L${a}\E${a}" "Aa-aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\L${a}\l${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\L${a}\u${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\U${a}\Q${a}" "Aa-aa-aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\U${a}\L${a}" "Aa-aa-aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\U${a}\U${a}" "Aa-aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\U${a}\E${a}" "Aa-aa-aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\U${a}\l${a}" "Aa-aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\U${a}\u${a}" "Aa-aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\E${a}\Q${a}" "Aa-aa-aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\E${a}\L${a}" "Aa-aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\E${a}\U${a}" "Aa-aa-aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\E${a}\E${a}" "Aa-aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\E${a}\l${a}" "Aa-aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\E${a}\u${a}" "Aa-aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\l${a}\Q${a}" "Aa-aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\l${a}\L${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\l${a}\U${a}" "Aa-aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\l${a}\E${a}" "Aa-aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\l${a}\l${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\l${a}\u${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\u${a}\Q${a}" "Aa-aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\u${a}\L${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\u${a}\U${a}" "Aa-aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\u${a}\E${a}" "Aa-aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\u${a}\l${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\L${a}\u${a}\u${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\Q${a}\Q${a}" "Aa-aa-AA-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\Q${a}\L${a}" "Aa-aa-AA-AA\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\Q${a}\U${a}" "Aa-aa-AA-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\Q${a}\E${a}" "Aa-aa-AA-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\Q${a}\l${a}" "Aa-aa-AA-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\Q${a}\u${a}" "Aa-aa-AA-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\L${a}\Q${a}" "Aa-aa-AA-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\L${a}\L${a}" "Aa-aa-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\L${a}\U${a}" "Aa-aa-AA-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\L${a}\E${a}" "Aa-aa-AA-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\L${a}\l${a}" "Aa-aa-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\L${a}\u${a}" "Aa-aa-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\U${a}\Q${a}" "Aa-aa-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\U${a}\L${a}" "Aa-aa-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\U${a}\U${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\U${a}\E${a}" "Aa-aa-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\U${a}\l${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\U${a}\u${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\E${a}\Q${a}" "Aa-aa-AA-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\E${a}\L${a}" "Aa-aa-AA-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\E${a}\U${a}" "Aa-aa-AA-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\E${a}\E${a}" "Aa-aa-AA-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\E${a}\l${a}" "Aa-aa-AA-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\E${a}\u${a}" "Aa-aa-AA-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\l${a}\Q${a}" "Aa-aa-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\l${a}\L${a}" "Aa-aa-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\l${a}\U${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\l${a}\E${a}" "Aa-aa-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\l${a}\l${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\l${a}\u${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\u${a}\Q${a}" "Aa-aa-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\u${a}\L${a}" "Aa-aa-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\u${a}\U${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\u${a}\E${a}" "Aa-aa-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\u${a}\l${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\U${a}\u${a}\u${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\Q${a}\Q${a}" "Aa-aa-Aa-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\Q${a}\L${a}" "Aa-aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\Q${a}\U${a}" "Aa-aa-Aa-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\Q${a}\E${a}" "Aa-aa-Aa-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\Q${a}\l${a}" "Aa-aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\Q${a}\u${a}" "Aa-aa-Aa-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\L${a}\Q${a}" "Aa-aa-Aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\L${a}\L${a}" "Aa-aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\L${a}\U${a}" "Aa-aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\L${a}\E${a}" "Aa-aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\L${a}\l${a}" "Aa-aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\L${a}\u${a}" "Aa-aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\U${a}\Q${a}" "Aa-aa-Aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\U${a}\L${a}" "Aa-aa-Aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\U${a}\U${a}" "Aa-aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\U${a}\E${a}" "Aa-aa-Aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\U${a}\l${a}" "Aa-aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\U${a}\u${a}" "Aa-aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\E${a}\Q${a}" "Aa-aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\E${a}\L${a}" "Aa-aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\E${a}\U${a}" "Aa-aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\E${a}\E${a}" "Aa-aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\E${a}\l${a}" "Aa-aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\E${a}\u${a}" "Aa-aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\l${a}\Q${a}" "Aa-aa-Aa-aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\l${a}\L${a}" "Aa-aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\l${a}\U${a}" "Aa-aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\l${a}\E${a}" "Aa-aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\l${a}\l${a}" "Aa-aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\l${a}\u${a}" "Aa-aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\u${a}\Q${a}" "Aa-aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\u${a}\L${a}" "Aa-aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\u${a}\U${a}" "Aa-aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\u${a}\E${a}" "Aa-aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\u${a}\l${a}" "Aa-aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\E${a}\u${a}\u${a}" "Aa-aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\Q${a}\Q${a}" "Aa-aa-aa-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\Q${a}\L${a}" "Aa-aa-aa-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\Q${a}\U${a}" "Aa-aa-aa-aa\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\Q${a}\E${a}" "Aa-aa-aa-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\Q${a}\l${a}" "Aa-aa-aa-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\Q${a}\u${a}" "Aa-aa-aa-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\L${a}\Q${a}" "Aa-aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\L${a}\L${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\L${a}\U${a}" "Aa-aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\L${a}\E${a}" "Aa-aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\L${a}\l${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\L${a}\u${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\U${a}\Q${a}" "Aa-aa-aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\U${a}\L${a}" "Aa-aa-aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\U${a}\U${a}" "Aa-aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\U${a}\E${a}" "Aa-aa-aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\U${a}\l${a}" "Aa-aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\U${a}\u${a}" "Aa-aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\E${a}\Q${a}" "Aa-aa-aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\E${a}\L${a}" "Aa-aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\E${a}\U${a}" "Aa-aa-aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\E${a}\E${a}" "Aa-aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\E${a}\l${a}" "Aa-aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\E${a}\u${a}" "Aa-aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\l${a}\Q${a}" "Aa-aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\l${a}\L${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\l${a}\U${a}" "Aa-aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\l${a}\E${a}" "Aa-aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\l${a}\l${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\l${a}\u${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\u${a}\Q${a}" "Aa-aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\u${a}\L${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\u${a}\U${a}" "Aa-aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\u${a}\E${a}" "Aa-aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\u${a}\l${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\l${a}\u${a}\u${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\Q${a}\Q${a}" "Aa-aa-aa-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\Q${a}\L${a}" "Aa-aa-aa-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\Q${a}\U${a}" "Aa-aa-aa-aa\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\Q${a}\E${a}" "Aa-aa-aa-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\Q${a}\l${a}" "Aa-aa-aa-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\Q${a}\u${a}" "Aa-aa-aa-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\L${a}\Q${a}" "Aa-aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\L${a}\L${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\L${a}\U${a}" "Aa-aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\L${a}\E${a}" "Aa-aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\L${a}\l${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\L${a}\u${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\U${a}\Q${a}" "Aa-aa-aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\U${a}\L${a}" "Aa-aa-aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\U${a}\U${a}" "Aa-aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\U${a}\E${a}" "Aa-aa-aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\U${a}\l${a}" "Aa-aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\U${a}\u${a}" "Aa-aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\E${a}\Q${a}" "Aa-aa-aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\E${a}\L${a}" "Aa-aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\E${a}\U${a}" "Aa-aa-aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\E${a}\E${a}" "Aa-aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\E${a}\l${a}" "Aa-aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\E${a}\u${a}" "Aa-aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\l${a}\Q${a}" "Aa-aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\l${a}\L${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\l${a}\U${a}" "Aa-aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\l${a}\E${a}" "Aa-aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\l${a}\l${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\l${a}\u${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\u${a}\Q${a}" "Aa-aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\u${a}\L${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\u${a}\U${a}" "Aa-aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\u${a}\E${a}" "Aa-aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\u${a}\l${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\L${a}\u${a}\u${a}\u${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\Q${a}\Q${a}" "Aa-AA-AA\\-AA\\\\\\-AA\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\Q${a}\L${a}" "Aa-AA-AA\\-AA\\\\\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\Q${a}\U${a}" "Aa-AA-AA\\-AA\\\\\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\Q${a}\E${a}" "Aa-AA-AA\\-AA\\\\\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\Q${a}\l${a}" "Aa-AA-AA\\-AA\\\\\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\Q${a}\u${a}" "Aa-AA-AA\\-AA\\\\\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\L${a}\Q${a}" "Aa-AA-AA\\-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\L${a}\L${a}" "Aa-AA-AA\\-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\L${a}\U${a}" "Aa-AA-AA\\-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\L${a}\E${a}" "Aa-AA-AA\\-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\L${a}\l${a}" "Aa-AA-AA\\-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\L${a}\u${a}" "Aa-AA-AA\\-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\U${a}\Q${a}" "Aa-AA-AA\\-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\U${a}\L${a}" "Aa-AA-AA\\-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\U${a}\U${a}" "Aa-AA-AA\\-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\U${a}\E${a}" "Aa-AA-AA\\-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\U${a}\l${a}" "Aa-AA-AA\\-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\U${a}\u${a}" "Aa-AA-AA\\-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\E${a}\Q${a}" "Aa-AA-AA\\-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\E${a}\L${a}" "Aa-AA-AA\\-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\E${a}\U${a}" "Aa-AA-AA\\-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\E${a}\E${a}" "Aa-AA-AA\\-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\E${a}\l${a}" "Aa-AA-AA\\-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\E${a}\u${a}" "Aa-AA-AA\\-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\l${a}\Q${a}" "Aa-AA-AA\\-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\l${a}\L${a}" "Aa-AA-AA\\-AA\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\l${a}\U${a}" "Aa-AA-AA\\-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\l${a}\E${a}" "Aa-AA-AA\\-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\l${a}\l${a}" "Aa-AA-AA\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\l${a}\u${a}" "Aa-AA-AA\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\u${a}\Q${a}" "Aa-AA-AA\\-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\u${a}\L${a}" "Aa-AA-AA\\-AA\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\u${a}\U${a}" "Aa-AA-AA\\-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\u${a}\E${a}" "Aa-AA-AA\\-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\u${a}\l${a}" "Aa-AA-AA\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\Q${a}\u${a}\u${a}" "Aa-AA-AA\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\Q${a}\Q${a}" "Aa-AA-aa-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\Q${a}\L${a}" "Aa-AA-aa-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\Q${a}\U${a}" "Aa-AA-aa-aa\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\Q${a}\E${a}" "Aa-AA-aa-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\Q${a}\l${a}" "Aa-AA-aa-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\Q${a}\u${a}" "Aa-AA-aa-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\L${a}\Q${a}" "Aa-AA-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\L${a}\L${a}" "Aa-AA-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\L${a}\U${a}" "Aa-AA-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\L${a}\E${a}" "Aa-AA-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\L${a}\l${a}" "Aa-AA-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\L${a}\u${a}" "Aa-AA-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\U${a}\Q${a}" "Aa-AA-aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\U${a}\L${a}" "Aa-AA-aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\U${a}\U${a}" "Aa-AA-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\U${a}\E${a}" "Aa-AA-aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\U${a}\l${a}" "Aa-AA-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\U${a}\u${a}" "Aa-AA-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\E${a}\Q${a}" "Aa-AA-aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\E${a}\L${a}" "Aa-AA-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\E${a}\U${a}" "Aa-AA-aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\E${a}\E${a}" "Aa-AA-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\E${a}\l${a}" "Aa-AA-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\E${a}\u${a}" "Aa-AA-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\l${a}\Q${a}" "Aa-AA-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\l${a}\L${a}" "Aa-AA-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\l${a}\U${a}" "Aa-AA-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\l${a}\E${a}" "Aa-AA-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\l${a}\l${a}" "Aa-AA-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\l${a}\u${a}" "Aa-AA-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\u${a}\Q${a}" "Aa-AA-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\u${a}\L${a}" "Aa-AA-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\u${a}\U${a}" "Aa-AA-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\u${a}\E${a}" "Aa-AA-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\u${a}\l${a}" "Aa-AA-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\L${a}\u${a}\u${a}" "Aa-AA-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\Q${a}\Q${a}" "Aa-AA-AA-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\Q${a}\L${a}" "Aa-AA-AA-AA\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\Q${a}\U${a}" "Aa-AA-AA-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\Q${a}\E${a}" "Aa-AA-AA-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\Q${a}\l${a}" "Aa-AA-AA-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\Q${a}\u${a}" "Aa-AA-AA-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\L${a}\Q${a}" "Aa-AA-AA-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\L${a}\L${a}" "Aa-AA-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\L${a}\U${a}" "Aa-AA-AA-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\L${a}\E${a}" "Aa-AA-AA-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\L${a}\l${a}" "Aa-AA-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\L${a}\u${a}" "Aa-AA-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\U${a}\Q${a}" "Aa-AA-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\U${a}\L${a}" "Aa-AA-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\U${a}\U${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\U${a}\E${a}" "Aa-AA-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\U${a}\l${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\U${a}\u${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\E${a}\Q${a}" "Aa-AA-AA-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\E${a}\L${a}" "Aa-AA-AA-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\E${a}\U${a}" "Aa-AA-AA-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\E${a}\E${a}" "Aa-AA-AA-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\E${a}\l${a}" "Aa-AA-AA-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\E${a}\u${a}" "Aa-AA-AA-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\l${a}\Q${a}" "Aa-AA-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\l${a}\L${a}" "Aa-AA-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\l${a}\U${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\l${a}\E${a}" "Aa-AA-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\l${a}\l${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\l${a}\u${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\u${a}\Q${a}" "Aa-AA-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\u${a}\L${a}" "Aa-AA-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\u${a}\U${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\u${a}\E${a}" "Aa-AA-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\u${a}\l${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\U${a}\u${a}\u${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\Q${a}\Q${a}" "Aa-AA-Aa-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\Q${a}\L${a}" "Aa-AA-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\Q${a}\U${a}" "Aa-AA-Aa-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\Q${a}\E${a}" "Aa-AA-Aa-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\Q${a}\l${a}" "Aa-AA-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\Q${a}\u${a}" "Aa-AA-Aa-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\L${a}\Q${a}" "Aa-AA-Aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\L${a}\L${a}" "Aa-AA-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\L${a}\U${a}" "Aa-AA-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\L${a}\E${a}" "Aa-AA-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\L${a}\l${a}" "Aa-AA-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\L${a}\u${a}" "Aa-AA-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\U${a}\Q${a}" "Aa-AA-Aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\U${a}\L${a}" "Aa-AA-Aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\U${a}\U${a}" "Aa-AA-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\U${a}\E${a}" "Aa-AA-Aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\U${a}\l${a}" "Aa-AA-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\U${a}\u${a}" "Aa-AA-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\E${a}\Q${a}" "Aa-AA-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\E${a}\L${a}" "Aa-AA-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\E${a}\U${a}" "Aa-AA-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\E${a}\E${a}" "Aa-AA-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\E${a}\l${a}" "Aa-AA-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\E${a}\u${a}" "Aa-AA-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\l${a}\Q${a}" "Aa-AA-Aa-aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\l${a}\L${a}" "Aa-AA-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\l${a}\U${a}" "Aa-AA-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\l${a}\E${a}" "Aa-AA-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\l${a}\l${a}" "Aa-AA-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\l${a}\u${a}" "Aa-AA-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\u${a}\Q${a}" "Aa-AA-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\u${a}\L${a}" "Aa-AA-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\u${a}\U${a}" "Aa-AA-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\u${a}\E${a}" "Aa-AA-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\u${a}\l${a}" "Aa-AA-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\E${a}\u${a}\u${a}" "Aa-AA-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\Q${a}\Q${a}" "Aa-AA-AA-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\Q${a}\L${a}" "Aa-AA-AA-AA\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\Q${a}\U${a}" "Aa-AA-AA-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\Q${a}\E${a}" "Aa-AA-AA-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\Q${a}\l${a}" "Aa-AA-AA-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\Q${a}\u${a}" "Aa-AA-AA-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\L${a}\Q${a}" "Aa-AA-AA-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\L${a}\L${a}" "Aa-AA-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\L${a}\U${a}" "Aa-AA-AA-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\L${a}\E${a}" "Aa-AA-AA-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\L${a}\l${a}" "Aa-AA-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\L${a}\u${a}" "Aa-AA-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\U${a}\Q${a}" "Aa-AA-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\U${a}\L${a}" "Aa-AA-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\U${a}\U${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\U${a}\E${a}" "Aa-AA-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\U${a}\l${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\U${a}\u${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\E${a}\Q${a}" "Aa-AA-AA-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\E${a}\L${a}" "Aa-AA-AA-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\E${a}\U${a}" "Aa-AA-AA-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\E${a}\E${a}" "Aa-AA-AA-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\E${a}\l${a}" "Aa-AA-AA-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\E${a}\u${a}" "Aa-AA-AA-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\l${a}\Q${a}" "Aa-AA-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\l${a}\L${a}" "Aa-AA-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\l${a}\U${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\l${a}\E${a}" "Aa-AA-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\l${a}\l${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\l${a}\u${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\u${a}\Q${a}" "Aa-AA-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\u${a}\L${a}" "Aa-AA-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\u${a}\U${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\u${a}\E${a}" "Aa-AA-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\u${a}\l${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\l${a}\u${a}\u${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\Q${a}\Q${a}" "Aa-AA-AA-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\Q${a}\L${a}" "Aa-AA-AA-AA\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\Q${a}\U${a}" "Aa-AA-AA-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\Q${a}\E${a}" "Aa-AA-AA-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\Q${a}\l${a}" "Aa-AA-AA-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\Q${a}\u${a}" "Aa-AA-AA-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\L${a}\Q${a}" "Aa-AA-AA-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\L${a}\L${a}" "Aa-AA-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\L${a}\U${a}" "Aa-AA-AA-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\L${a}\E${a}" "Aa-AA-AA-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\L${a}\l${a}" "Aa-AA-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\L${a}\u${a}" "Aa-AA-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\U${a}\Q${a}" "Aa-AA-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\U${a}\L${a}" "Aa-AA-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\U${a}\U${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\U${a}\E${a}" "Aa-AA-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\U${a}\l${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\U${a}\u${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\E${a}\Q${a}" "Aa-AA-AA-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\E${a}\L${a}" "Aa-AA-AA-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\E${a}\U${a}" "Aa-AA-AA-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\E${a}\E${a}" "Aa-AA-AA-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\E${a}\l${a}" "Aa-AA-AA-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\E${a}\u${a}" "Aa-AA-AA-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\l${a}\Q${a}" "Aa-AA-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\l${a}\L${a}" "Aa-AA-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\l${a}\U${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\l${a}\E${a}" "Aa-AA-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\l${a}\l${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\l${a}\u${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\u${a}\Q${a}" "Aa-AA-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\u${a}\L${a}" "Aa-AA-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\u${a}\U${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\u${a}\E${a}" "Aa-AA-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\u${a}\l${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\U${a}\u${a}\u${a}\u${a}" "Aa-AA-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\Q${a}\Q${a}" "Aa-Aa-Aa\\-Aa\\\\\\-Aa\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\Q${a}\L${a}" "Aa-Aa-Aa\\-Aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\Q${a}\U${a}" "Aa-Aa-Aa\\-Aa\\\\\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\Q${a}\E${a}" "Aa-Aa-Aa\\-Aa\\\\\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\Q${a}\l${a}" "Aa-Aa-Aa\\-Aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\Q${a}\u${a}" "Aa-Aa-Aa\\-Aa\\\\\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\L${a}\Q${a}" "Aa-Aa-Aa\\-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\L${a}\L${a}" "Aa-Aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\L${a}\U${a}" "Aa-Aa-Aa\\-aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\L${a}\E${a}" "Aa-Aa-Aa\\-aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\L${a}\l${a}" "Aa-Aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\L${a}\u${a}" "Aa-Aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\U${a}\Q${a}" "Aa-Aa-Aa\\-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\U${a}\L${a}" "Aa-Aa-Aa\\-AA\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\U${a}\U${a}" "Aa-Aa-Aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\U${a}\E${a}" "Aa-Aa-Aa\\-AA\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\U${a}\l${a}" "Aa-Aa-Aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\U${a}\u${a}" "Aa-Aa-Aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\E${a}\Q${a}" "Aa-Aa-Aa\\-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\E${a}\L${a}" "Aa-Aa-Aa\\-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\E${a}\U${a}" "Aa-Aa-Aa\\-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\E${a}\E${a}" "Aa-Aa-Aa\\-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\E${a}\l${a}" "Aa-Aa-Aa\\-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\E${a}\u${a}" "Aa-Aa-Aa\\-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\l${a}\Q${a}" "Aa-Aa-Aa\\-aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\l${a}\L${a}" "Aa-Aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\l${a}\U${a}" "Aa-Aa-Aa\\-aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\l${a}\E${a}" "Aa-Aa-Aa\\-aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\l${a}\l${a}" "Aa-Aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\l${a}\u${a}" "Aa-Aa-Aa\\-aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\u${a}\Q${a}" "Aa-Aa-Aa\\-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\u${a}\L${a}" "Aa-Aa-Aa\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\u${a}\U${a}" "Aa-Aa-Aa\\-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\u${a}\E${a}" "Aa-Aa-Aa\\-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\u${a}\l${a}" "Aa-Aa-Aa\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\Q${a}\u${a}\u${a}" "Aa-Aa-Aa\\-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\Q${a}\Q${a}" "Aa-Aa-aa-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\Q${a}\L${a}" "Aa-Aa-aa-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\Q${a}\U${a}" "Aa-Aa-aa-aa\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\Q${a}\E${a}" "Aa-Aa-aa-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\Q${a}\l${a}" "Aa-Aa-aa-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\Q${a}\u${a}" "Aa-Aa-aa-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\L${a}\Q${a}" "Aa-Aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\L${a}\L${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\L${a}\U${a}" "Aa-Aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\L${a}\E${a}" "Aa-Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\L${a}\l${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\L${a}\u${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\U${a}\Q${a}" "Aa-Aa-aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\U${a}\L${a}" "Aa-Aa-aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\U${a}\U${a}" "Aa-Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\U${a}\E${a}" "Aa-Aa-aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\U${a}\l${a}" "Aa-Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\U${a}\u${a}" "Aa-Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\E${a}\Q${a}" "Aa-Aa-aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\E${a}\L${a}" "Aa-Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\E${a}\U${a}" "Aa-Aa-aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\E${a}\E${a}" "Aa-Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\E${a}\l${a}" "Aa-Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\E${a}\u${a}" "Aa-Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\l${a}\Q${a}" "Aa-Aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\l${a}\L${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\l${a}\U${a}" "Aa-Aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\l${a}\E${a}" "Aa-Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\l${a}\l${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\l${a}\u${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\u${a}\Q${a}" "Aa-Aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\u${a}\L${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\u${a}\U${a}" "Aa-Aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\u${a}\E${a}" "Aa-Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\u${a}\l${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\L${a}\u${a}\u${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\Q${a}\Q${a}" "Aa-Aa-AA-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\Q${a}\L${a}" "Aa-Aa-AA-AA\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\Q${a}\U${a}" "Aa-Aa-AA-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\Q${a}\E${a}" "Aa-Aa-AA-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\Q${a}\l${a}" "Aa-Aa-AA-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\Q${a}\u${a}" "Aa-Aa-AA-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\L${a}\Q${a}" "Aa-Aa-AA-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\L${a}\L${a}" "Aa-Aa-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\L${a}\U${a}" "Aa-Aa-AA-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\L${a}\E${a}" "Aa-Aa-AA-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\L${a}\l${a}" "Aa-Aa-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\L${a}\u${a}" "Aa-Aa-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\U${a}\Q${a}" "Aa-Aa-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\U${a}\L${a}" "Aa-Aa-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\U${a}\U${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\U${a}\E${a}" "Aa-Aa-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\U${a}\l${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\U${a}\u${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\E${a}\Q${a}" "Aa-Aa-AA-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\E${a}\L${a}" "Aa-Aa-AA-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\E${a}\U${a}" "Aa-Aa-AA-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\E${a}\E${a}" "Aa-Aa-AA-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\E${a}\l${a}" "Aa-Aa-AA-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\E${a}\u${a}" "Aa-Aa-AA-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\l${a}\Q${a}" "Aa-Aa-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\l${a}\L${a}" "Aa-Aa-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\l${a}\U${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\l${a}\E${a}" "Aa-Aa-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\l${a}\l${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\l${a}\u${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\u${a}\Q${a}" "Aa-Aa-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\u${a}\L${a}" "Aa-Aa-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\u${a}\U${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\u${a}\E${a}" "Aa-Aa-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\u${a}\l${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\U${a}\u${a}\u${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\Q${a}\Q${a}" "Aa-Aa-Aa-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\Q${a}\L${a}" "Aa-Aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\Q${a}\U${a}" "Aa-Aa-Aa-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\Q${a}\E${a}" "Aa-Aa-Aa-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\Q${a}\l${a}" "Aa-Aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\Q${a}\u${a}" "Aa-Aa-Aa-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\L${a}\Q${a}" "Aa-Aa-Aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\L${a}\L${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\L${a}\U${a}" "Aa-Aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\L${a}\E${a}" "Aa-Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\L${a}\l${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\L${a}\u${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\U${a}\Q${a}" "Aa-Aa-Aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\U${a}\L${a}" "Aa-Aa-Aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\U${a}\U${a}" "Aa-Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\U${a}\E${a}" "Aa-Aa-Aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\U${a}\l${a}" "Aa-Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\U${a}\u${a}" "Aa-Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\E${a}\Q${a}" "Aa-Aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\E${a}\L${a}" "Aa-Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\E${a}\U${a}" "Aa-Aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\E${a}\E${a}" "Aa-Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\E${a}\l${a}" "Aa-Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\E${a}\u${a}" "Aa-Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\l${a}\Q${a}" "Aa-Aa-Aa-aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\l${a}\L${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\l${a}\U${a}" "Aa-Aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\l${a}\E${a}" "Aa-Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\l${a}\l${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\l${a}\u${a}" "Aa-Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\u${a}\Q${a}" "Aa-Aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\u${a}\L${a}" "Aa-Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\u${a}\U${a}" "Aa-Aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\u${a}\E${a}" "Aa-Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\u${a}\l${a}" "Aa-Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\E${a}\u${a}\u${a}" "Aa-Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\Q${a}\Q${a}" "Aa-Aa-aa-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\Q${a}\L${a}" "Aa-Aa-aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\Q${a}\U${a}" "Aa-Aa-aa-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\Q${a}\E${a}" "Aa-Aa-aa-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\Q${a}\l${a}" "Aa-Aa-aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\Q${a}\u${a}" "Aa-Aa-aa-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\L${a}\Q${a}" "Aa-Aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\L${a}\L${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\L${a}\U${a}" "Aa-Aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\L${a}\E${a}" "Aa-Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\L${a}\l${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\L${a}\u${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\U${a}\Q${a}" "Aa-Aa-aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\U${a}\L${a}" "Aa-Aa-aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\U${a}\U${a}" "Aa-Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\U${a}\E${a}" "Aa-Aa-aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\U${a}\l${a}" "Aa-Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\U${a}\u${a}" "Aa-Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\E${a}\Q${a}" "Aa-Aa-aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\E${a}\L${a}" "Aa-Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\E${a}\U${a}" "Aa-Aa-aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\E${a}\E${a}" "Aa-Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\E${a}\l${a}" "Aa-Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\E${a}\u${a}" "Aa-Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\l${a}\Q${a}" "Aa-Aa-aa-aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\l${a}\L${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\l${a}\U${a}" "Aa-Aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\l${a}\E${a}" "Aa-Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\l${a}\l${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\l${a}\u${a}" "Aa-Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\u${a}\Q${a}" "Aa-Aa-aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\u${a}\L${a}" "Aa-Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\u${a}\U${a}" "Aa-Aa-aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\u${a}\E${a}" "Aa-Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\u${a}\l${a}" "Aa-Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\l${a}\u${a}\u${a}" "Aa-Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\Q${a}\Q${a}" "Aa-Aa-Aa-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\Q${a}\L${a}" "Aa-Aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\Q${a}\U${a}" "Aa-Aa-Aa-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\Q${a}\E${a}" "Aa-Aa-Aa-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\Q${a}\l${a}" "Aa-Aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\Q${a}\u${a}" "Aa-Aa-Aa-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\L${a}\Q${a}" "Aa-Aa-Aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\L${a}\L${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\L${a}\U${a}" "Aa-Aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\L${a}\E${a}" "Aa-Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\L${a}\l${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\L${a}\u${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\U${a}\Q${a}" "Aa-Aa-Aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\U${a}\L${a}" "Aa-Aa-Aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\U${a}\U${a}" "Aa-Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\U${a}\E${a}" "Aa-Aa-Aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\U${a}\l${a}" "Aa-Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\U${a}\u${a}" "Aa-Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\E${a}\Q${a}" "Aa-Aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\E${a}\L${a}" "Aa-Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\E${a}\U${a}" "Aa-Aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\E${a}\E${a}" "Aa-Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\E${a}\l${a}" "Aa-Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\E${a}\u${a}" "Aa-Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\l${a}\Q${a}" "Aa-Aa-Aa-aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\l${a}\L${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\l${a}\U${a}" "Aa-Aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\l${a}\E${a}" "Aa-Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\l${a}\l${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\l${a}\u${a}" "Aa-Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\u${a}\Q${a}" "Aa-Aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\u${a}\L${a}" "Aa-Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\u${a}\U${a}" "Aa-Aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\u${a}\E${a}" "Aa-Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\u${a}\l${a}" "Aa-Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\E${a}\u${a}\u${a}\u${a}" "Aa-Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\Q${a}\Q${a}" "Aa-aa-Aa\\-Aa\\\\\\-Aa\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\Q${a}\L${a}" "Aa-aa-Aa\\-Aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\Q${a}\U${a}" "Aa-aa-Aa\\-Aa\\\\\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\Q${a}\E${a}" "Aa-aa-Aa\\-Aa\\\\\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\Q${a}\l${a}" "Aa-aa-Aa\\-Aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\Q${a}\u${a}" "Aa-aa-Aa\\-Aa\\\\\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\L${a}\Q${a}" "Aa-aa-Aa\\-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\L${a}\L${a}" "Aa-aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\L${a}\U${a}" "Aa-aa-Aa\\-aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\L${a}\E${a}" "Aa-aa-Aa\\-aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\L${a}\l${a}" "Aa-aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\L${a}\u${a}" "Aa-aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\U${a}\Q${a}" "Aa-aa-Aa\\-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\U${a}\L${a}" "Aa-aa-Aa\\-AA\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\U${a}\U${a}" "Aa-aa-Aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\U${a}\E${a}" "Aa-aa-Aa\\-AA\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\U${a}\l${a}" "Aa-aa-Aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\U${a}\u${a}" "Aa-aa-Aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\E${a}\Q${a}" "Aa-aa-Aa\\-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\E${a}\L${a}" "Aa-aa-Aa\\-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\E${a}\U${a}" "Aa-aa-Aa\\-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\E${a}\E${a}" "Aa-aa-Aa\\-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\E${a}\l${a}" "Aa-aa-Aa\\-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\E${a}\u${a}" "Aa-aa-Aa\\-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\l${a}\Q${a}" "Aa-aa-Aa\\-aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\l${a}\L${a}" "Aa-aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\l${a}\U${a}" "Aa-aa-Aa\\-aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\l${a}\E${a}" "Aa-aa-Aa\\-aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\l${a}\l${a}" "Aa-aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\l${a}\u${a}" "Aa-aa-Aa\\-aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\u${a}\Q${a}" "Aa-aa-Aa\\-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\u${a}\L${a}" "Aa-aa-Aa\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\u${a}\U${a}" "Aa-aa-Aa\\-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\u${a}\E${a}" "Aa-aa-Aa\\-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\u${a}\l${a}" "Aa-aa-Aa\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\Q${a}\u${a}\u${a}" "Aa-aa-Aa\\-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\Q${a}\Q${a}" "Aa-aa-aa-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\Q${a}\L${a}" "Aa-aa-aa-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\Q${a}\U${a}" "Aa-aa-aa-aa\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\Q${a}\E${a}" "Aa-aa-aa-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\Q${a}\l${a}" "Aa-aa-aa-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\Q${a}\u${a}" "Aa-aa-aa-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\L${a}\Q${a}" "Aa-aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\L${a}\L${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\L${a}\U${a}" "Aa-aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\L${a}\E${a}" "Aa-aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\L${a}\l${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\L${a}\u${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\U${a}\Q${a}" "Aa-aa-aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\U${a}\L${a}" "Aa-aa-aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\U${a}\U${a}" "Aa-aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\U${a}\E${a}" "Aa-aa-aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\U${a}\l${a}" "Aa-aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\U${a}\u${a}" "Aa-aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\E${a}\Q${a}" "Aa-aa-aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\E${a}\L${a}" "Aa-aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\E${a}\U${a}" "Aa-aa-aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\E${a}\E${a}" "Aa-aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\E${a}\l${a}" "Aa-aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\E${a}\u${a}" "Aa-aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\l${a}\Q${a}" "Aa-aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\l${a}\L${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\l${a}\U${a}" "Aa-aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\l${a}\E${a}" "Aa-aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\l${a}\l${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\l${a}\u${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\u${a}\Q${a}" "Aa-aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\u${a}\L${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\u${a}\U${a}" "Aa-aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\u${a}\E${a}" "Aa-aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\u${a}\l${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\L${a}\u${a}\u${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\Q${a}\Q${a}" "Aa-aa-AA-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\Q${a}\L${a}" "Aa-aa-AA-AA\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\Q${a}\U${a}" "Aa-aa-AA-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\Q${a}\E${a}" "Aa-aa-AA-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\Q${a}\l${a}" "Aa-aa-AA-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\Q${a}\u${a}" "Aa-aa-AA-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\L${a}\Q${a}" "Aa-aa-AA-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\L${a}\L${a}" "Aa-aa-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\L${a}\U${a}" "Aa-aa-AA-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\L${a}\E${a}" "Aa-aa-AA-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\L${a}\l${a}" "Aa-aa-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\L${a}\u${a}" "Aa-aa-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\U${a}\Q${a}" "Aa-aa-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\U${a}\L${a}" "Aa-aa-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\U${a}\U${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\U${a}\E${a}" "Aa-aa-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\U${a}\l${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\U${a}\u${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\E${a}\Q${a}" "Aa-aa-AA-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\E${a}\L${a}" "Aa-aa-AA-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\E${a}\U${a}" "Aa-aa-AA-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\E${a}\E${a}" "Aa-aa-AA-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\E${a}\l${a}" "Aa-aa-AA-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\E${a}\u${a}" "Aa-aa-AA-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\l${a}\Q${a}" "Aa-aa-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\l${a}\L${a}" "Aa-aa-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\l${a}\U${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\l${a}\E${a}" "Aa-aa-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\l${a}\l${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\l${a}\u${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\u${a}\Q${a}" "Aa-aa-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\u${a}\L${a}" "Aa-aa-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\u${a}\U${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\u${a}\E${a}" "Aa-aa-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\u${a}\l${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\U${a}\u${a}\u${a}" "Aa-aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\Q${a}\Q${a}" "Aa-aa-Aa-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\Q${a}\L${a}" "Aa-aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\Q${a}\U${a}" "Aa-aa-Aa-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\Q${a}\E${a}" "Aa-aa-Aa-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\Q${a}\l${a}" "Aa-aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\Q${a}\u${a}" "Aa-aa-Aa-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\L${a}\Q${a}" "Aa-aa-Aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\L${a}\L${a}" "Aa-aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\L${a}\U${a}" "Aa-aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\L${a}\E${a}" "Aa-aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\L${a}\l${a}" "Aa-aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\L${a}\u${a}" "Aa-aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\U${a}\Q${a}" "Aa-aa-Aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\U${a}\L${a}" "Aa-aa-Aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\U${a}\U${a}" "Aa-aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\U${a}\E${a}" "Aa-aa-Aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\U${a}\l${a}" "Aa-aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\U${a}\u${a}" "Aa-aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\E${a}\Q${a}" "Aa-aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\E${a}\L${a}" "Aa-aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\E${a}\U${a}" "Aa-aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\E${a}\E${a}" "Aa-aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\E${a}\l${a}" "Aa-aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\E${a}\u${a}" "Aa-aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\l${a}\Q${a}" "Aa-aa-Aa-aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\l${a}\L${a}" "Aa-aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\l${a}\U${a}" "Aa-aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\l${a}\E${a}" "Aa-aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\l${a}\l${a}" "Aa-aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\l${a}\u${a}" "Aa-aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\u${a}\Q${a}" "Aa-aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\u${a}\L${a}" "Aa-aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\u${a}\U${a}" "Aa-aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\u${a}\E${a}" "Aa-aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\u${a}\l${a}" "Aa-aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\E${a}\u${a}\u${a}" "Aa-aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\Q${a}\Q${a}" "Aa-aa-aa-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\Q${a}\L${a}" "Aa-aa-aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\Q${a}\U${a}" "Aa-aa-aa-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\Q${a}\E${a}" "Aa-aa-aa-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\Q${a}\l${a}" "Aa-aa-aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\Q${a}\u${a}" "Aa-aa-aa-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\L${a}\Q${a}" "Aa-aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\L${a}\L${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\L${a}\U${a}" "Aa-aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\L${a}\E${a}" "Aa-aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\L${a}\l${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\L${a}\u${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\U${a}\Q${a}" "Aa-aa-aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\U${a}\L${a}" "Aa-aa-aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\U${a}\U${a}" "Aa-aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\U${a}\E${a}" "Aa-aa-aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\U${a}\l${a}" "Aa-aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\U${a}\u${a}" "Aa-aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\E${a}\Q${a}" "Aa-aa-aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\E${a}\L${a}" "Aa-aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\E${a}\U${a}" "Aa-aa-aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\E${a}\E${a}" "Aa-aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\E${a}\l${a}" "Aa-aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\E${a}\u${a}" "Aa-aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\l${a}\Q${a}" "Aa-aa-aa-aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\l${a}\L${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\l${a}\U${a}" "Aa-aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\l${a}\E${a}" "Aa-aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\l${a}\l${a}" "Aa-aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\l${a}\u${a}" "Aa-aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\u${a}\Q${a}" "Aa-aa-aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\u${a}\L${a}" "Aa-aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\u${a}\U${a}" "Aa-aa-aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\u${a}\E${a}" "Aa-aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\u${a}\l${a}" "Aa-aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\l${a}\u${a}\u${a}" "Aa-aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\Q${a}\Q${a}" "Aa-aa-Aa-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\Q${a}\L${a}" "Aa-aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\Q${a}\U${a}" "Aa-aa-Aa-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\Q${a}\E${a}" "Aa-aa-Aa-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\Q${a}\l${a}" "Aa-aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\Q${a}\u${a}" "Aa-aa-Aa-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\L${a}\Q${a}" "Aa-aa-Aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\L${a}\L${a}" "Aa-aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\L${a}\U${a}" "Aa-aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\L${a}\E${a}" "Aa-aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\L${a}\l${a}" "Aa-aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\L${a}\u${a}" "Aa-aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\U${a}\Q${a}" "Aa-aa-Aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\U${a}\L${a}" "Aa-aa-Aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\U${a}\U${a}" "Aa-aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\U${a}\E${a}" "Aa-aa-Aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\U${a}\l${a}" "Aa-aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\U${a}\u${a}" "Aa-aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\E${a}\Q${a}" "Aa-aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\E${a}\L${a}" "Aa-aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\E${a}\U${a}" "Aa-aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\E${a}\E${a}" "Aa-aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\E${a}\l${a}" "Aa-aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\E${a}\u${a}" "Aa-aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\l${a}\Q${a}" "Aa-aa-Aa-aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\l${a}\L${a}" "Aa-aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\l${a}\U${a}" "Aa-aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\l${a}\E${a}" "Aa-aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\l${a}\l${a}" "Aa-aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\l${a}\u${a}" "Aa-aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\u${a}\Q${a}" "Aa-aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\u${a}\L${a}" "Aa-aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\u${a}\U${a}" "Aa-aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\u${a}\E${a}" "Aa-aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\u${a}\l${a}" "Aa-aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\l${a}\u${a}\u${a}\u${a}" "Aa-aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\Q${a}\Q${a}" "Aa-Aa-Aa\\-Aa\\\\\\-Aa\\\\\\\\\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\Q${a}\L${a}" "Aa-Aa-Aa\\-Aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\Q${a}\U${a}" "Aa-Aa-Aa\\-Aa\\\\\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\Q${a}\E${a}" "Aa-Aa-Aa\\-Aa\\\\\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\Q${a}\l${a}" "Aa-Aa-Aa\\-Aa\\\\\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\Q${a}\u${a}" "Aa-Aa-Aa\\-Aa\\\\\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\L${a}\Q${a}" "Aa-Aa-Aa\\-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\L${a}\L${a}" "Aa-Aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\L${a}\U${a}" "Aa-Aa-Aa\\-aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\L${a}\E${a}" "Aa-Aa-Aa\\-aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\L${a}\l${a}" "Aa-Aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\L${a}\u${a}" "Aa-Aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\U${a}\Q${a}" "Aa-Aa-Aa\\-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\U${a}\L${a}" "Aa-Aa-Aa\\-AA\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\U${a}\U${a}" "Aa-Aa-Aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\U${a}\E${a}" "Aa-Aa-Aa\\-AA\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\U${a}\l${a}" "Aa-Aa-Aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\U${a}\u${a}" "Aa-Aa-Aa\\-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\E${a}\Q${a}" "Aa-Aa-Aa\\-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\E${a}\L${a}" "Aa-Aa-Aa\\-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\E${a}\U${a}" "Aa-Aa-Aa\\-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\E${a}\E${a}" "Aa-Aa-Aa\\-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\E${a}\l${a}" "Aa-Aa-Aa\\-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\E${a}\u${a}" "Aa-Aa-Aa\\-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\l${a}\Q${a}" "Aa-Aa-Aa\\-aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\l${a}\L${a}" "Aa-Aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\l${a}\U${a}" "Aa-Aa-Aa\\-aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\l${a}\E${a}" "Aa-Aa-Aa\\-aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\l${a}\l${a}" "Aa-Aa-Aa\\-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\l${a}\u${a}" "Aa-Aa-Aa\\-aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\u${a}\Q${a}" "Aa-Aa-Aa\\-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\u${a}\L${a}" "Aa-Aa-Aa\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\u${a}\U${a}" "Aa-Aa-Aa\\-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\u${a}\E${a}" "Aa-Aa-Aa\\-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\u${a}\l${a}" "Aa-Aa-Aa\\-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\Q${a}\u${a}\u${a}" "Aa-Aa-Aa\\-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\Q${a}\Q${a}" "Aa-Aa-aa-aa\\-aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\Q${a}\L${a}" "Aa-Aa-aa-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\Q${a}\U${a}" "Aa-Aa-aa-aa\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\Q${a}\E${a}" "Aa-Aa-aa-aa\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\Q${a}\l${a}" "Aa-Aa-aa-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\Q${a}\u${a}" "Aa-Aa-aa-aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\L${a}\Q${a}" "Aa-Aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\L${a}\L${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\L${a}\U${a}" "Aa-Aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\L${a}\E${a}" "Aa-Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\L${a}\l${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\L${a}\u${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\U${a}\Q${a}" "Aa-Aa-aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\U${a}\L${a}" "Aa-Aa-aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\U${a}\U${a}" "Aa-Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\U${a}\E${a}" "Aa-Aa-aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\U${a}\l${a}" "Aa-Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\U${a}\u${a}" "Aa-Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\E${a}\Q${a}" "Aa-Aa-aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\E${a}\L${a}" "Aa-Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\E${a}\U${a}" "Aa-Aa-aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\E${a}\E${a}" "Aa-Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\E${a}\l${a}" "Aa-Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\E${a}\u${a}" "Aa-Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\l${a}\Q${a}" "Aa-Aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\l${a}\L${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\l${a}\U${a}" "Aa-Aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\l${a}\E${a}" "Aa-Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\l${a}\l${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\l${a}\u${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\u${a}\Q${a}" "Aa-Aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\u${a}\L${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\u${a}\U${a}" "Aa-Aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\u${a}\E${a}" "Aa-Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\u${a}\l${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\L${a}\u${a}\u${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\Q${a}\Q${a}" "Aa-Aa-AA-AA\\-AA\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\Q${a}\L${a}" "Aa-Aa-AA-AA\\-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\Q${a}\U${a}" "Aa-Aa-AA-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\Q${a}\E${a}" "Aa-Aa-AA-AA\\-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\Q${a}\l${a}" "Aa-Aa-AA-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\Q${a}\u${a}" "Aa-Aa-AA-AA\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\L${a}\Q${a}" "Aa-Aa-AA-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\L${a}\L${a}" "Aa-Aa-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\L${a}\U${a}" "Aa-Aa-AA-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\L${a}\E${a}" "Aa-Aa-AA-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\L${a}\l${a}" "Aa-Aa-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\L${a}\u${a}" "Aa-Aa-AA-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\U${a}\Q${a}" "Aa-Aa-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\U${a}\L${a}" "Aa-Aa-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\U${a}\U${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\U${a}\E${a}" "Aa-Aa-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\U${a}\l${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\U${a}\u${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\E${a}\Q${a}" "Aa-Aa-AA-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\E${a}\L${a}" "Aa-Aa-AA-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\E${a}\U${a}" "Aa-Aa-AA-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\E${a}\E${a}" "Aa-Aa-AA-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\E${a}\l${a}" "Aa-Aa-AA-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\E${a}\u${a}" "Aa-Aa-AA-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\l${a}\Q${a}" "Aa-Aa-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\l${a}\L${a}" "Aa-Aa-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\l${a}\U${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\l${a}\E${a}" "Aa-Aa-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\l${a}\l${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\l${a}\u${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\u${a}\Q${a}" "Aa-Aa-AA-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\u${a}\L${a}" "Aa-Aa-AA-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\u${a}\U${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\u${a}\E${a}" "Aa-Aa-AA-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\u${a}\l${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\U${a}\u${a}\u${a}" "Aa-Aa-AA-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\Q${a}\Q${a}" "Aa-Aa-Aa-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\Q${a}\L${a}" "Aa-Aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\Q${a}\U${a}" "Aa-Aa-Aa-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\Q${a}\E${a}" "Aa-Aa-Aa-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\Q${a}\l${a}" "Aa-Aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\Q${a}\u${a}" "Aa-Aa-Aa-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\L${a}\Q${a}" "Aa-Aa-Aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\L${a}\L${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\L${a}\U${a}" "Aa-Aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\L${a}\E${a}" "Aa-Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\L${a}\l${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\L${a}\u${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\U${a}\Q${a}" "Aa-Aa-Aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\U${a}\L${a}" "Aa-Aa-Aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\U${a}\U${a}" "Aa-Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\U${a}\E${a}" "Aa-Aa-Aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\U${a}\l${a}" "Aa-Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\U${a}\u${a}" "Aa-Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\E${a}\Q${a}" "Aa-Aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\E${a}\L${a}" "Aa-Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\E${a}\U${a}" "Aa-Aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\E${a}\E${a}" "Aa-Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\E${a}\l${a}" "Aa-Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\E${a}\u${a}" "Aa-Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\l${a}\Q${a}" "Aa-Aa-Aa-aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\l${a}\L${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\l${a}\U${a}" "Aa-Aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\l${a}\E${a}" "Aa-Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\l${a}\l${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\l${a}\u${a}" "Aa-Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\u${a}\Q${a}" "Aa-Aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\u${a}\L${a}" "Aa-Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\u${a}\U${a}" "Aa-Aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\u${a}\E${a}" "Aa-Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\u${a}\l${a}" "Aa-Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\E${a}\u${a}\u${a}" "Aa-Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\Q${a}\Q${a}" "Aa-Aa-aa-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\Q${a}\L${a}" "Aa-Aa-aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\Q${a}\U${a}" "Aa-Aa-aa-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\Q${a}\E${a}" "Aa-Aa-aa-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\Q${a}\l${a}" "Aa-Aa-aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\Q${a}\u${a}" "Aa-Aa-aa-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\L${a}\Q${a}" "Aa-Aa-aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\L${a}\L${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\L${a}\U${a}" "Aa-Aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\L${a}\E${a}" "Aa-Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\L${a}\l${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\L${a}\u${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\U${a}\Q${a}" "Aa-Aa-aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\U${a}\L${a}" "Aa-Aa-aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\U${a}\U${a}" "Aa-Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\U${a}\E${a}" "Aa-Aa-aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\U${a}\l${a}" "Aa-Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\U${a}\u${a}" "Aa-Aa-aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\E${a}\Q${a}" "Aa-Aa-aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\E${a}\L${a}" "Aa-Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\E${a}\U${a}" "Aa-Aa-aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\E${a}\E${a}" "Aa-Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\E${a}\l${a}" "Aa-Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\E${a}\u${a}" "Aa-Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\l${a}\Q${a}" "Aa-Aa-aa-aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\l${a}\L${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\l${a}\U${a}" "Aa-Aa-aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\l${a}\E${a}" "Aa-Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\l${a}\l${a}" "Aa-Aa-aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\l${a}\u${a}" "Aa-Aa-aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\u${a}\Q${a}" "Aa-Aa-aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\u${a}\L${a}" "Aa-Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\u${a}\U${a}" "Aa-Aa-aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\u${a}\E${a}" "Aa-Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\u${a}\l${a}" "Aa-Aa-aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\l${a}\u${a}\u${a}" "Aa-Aa-aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\Q${a}\Q${a}" "Aa-Aa-Aa-Aa\\-Aa\\\\\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\Q${a}\L${a}" "Aa-Aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\Q${a}\U${a}" "Aa-Aa-Aa-Aa\\-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\Q${a}\E${a}" "Aa-Aa-Aa-Aa\\-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\Q${a}\l${a}" "Aa-Aa-Aa-Aa\\-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\Q${a}\u${a}" "Aa-Aa-Aa-Aa\\-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\L${a}\Q${a}" "Aa-Aa-Aa-aa-aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\L${a}\L${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\L${a}\U${a}" "Aa-Aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\L${a}\E${a}" "Aa-Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\L${a}\l${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\L${a}\u${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\U${a}\Q${a}" "Aa-Aa-Aa-AA-AA\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\U${a}\L${a}" "Aa-Aa-Aa-AA-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\U${a}\U${a}" "Aa-Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\U${a}\E${a}" "Aa-Aa-Aa-AA-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\U${a}\l${a}" "Aa-Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\U${a}\u${a}" "Aa-Aa-Aa-AA-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\E${a}\Q${a}" "Aa-Aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\E${a}\L${a}" "Aa-Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\E${a}\U${a}" "Aa-Aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\E${a}\E${a}" "Aa-Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\E${a}\l${a}" "Aa-Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\E${a}\u${a}" "Aa-Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\l${a}\Q${a}" "Aa-Aa-Aa-aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\l${a}\L${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\l${a}\U${a}" "Aa-Aa-Aa-aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\l${a}\E${a}" "Aa-Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\l${a}\l${a}" "Aa-Aa-Aa-aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\l${a}\u${a}" "Aa-Aa-Aa-aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\u${a}\Q${a}" "Aa-Aa-Aa-Aa-Aa\\-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\u${a}\L${a}" "Aa-Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\u${a}\U${a}" "Aa-Aa-Aa-Aa-AA-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\u${a}\E${a}" "Aa-Aa-Aa-Aa-Aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\u${a}\l${a}" "Aa-Aa-Aa-Aa-aa-")) (let ((a "Aa-")) (string= #?"${a}\u${a}\u${a}\u${a}\u${a}" "Aa-Aa-Aa-Aa-Aa-")) (let ((a "aA-")) (string= #?"${a}\Q${a}" "aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}" "aA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}" "aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}" "aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}" "aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}" "aA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}" "aA-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}" "aA-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}" "aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}" "aA-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}" "aA-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}" "aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}" "aA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}" "aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}" "aA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}" "aA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}" "aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}" "aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}" "aA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}" "aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}" "aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}" "aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}" "aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}" "aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}" "aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}" "aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}" "aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}" "aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}" "aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}" "aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}" "aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}" "aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}" "aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}" "aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}" "aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}" "aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}" "aA-AA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}" "aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}" "aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}" "aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}" "aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}" "aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\Q${a}" "aA-aA\\-aA\\\\\\-aA\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\L${a}" "aA-aA\\-aA\\\\\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\U${a}" "aA-aA\\-aA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\E${a}" "aA-aA\\-aA\\\\\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\l${a}" "aA-aA\\-aA\\\\\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\u${a}" "aA-aA\\-aA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\Q${a}" "aA-aA\\-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\L${a}" "aA-aA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\U${a}" "aA-aA\\-aa\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\E${a}" "aA-aA\\-aa\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\l${a}" "aA-aA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\u${a}" "aA-aA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\Q${a}" "aA-aA\\-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\L${a}" "aA-aA\\-AA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\U${a}" "aA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\E${a}" "aA-aA\\-AA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\l${a}" "aA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\u${a}" "aA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\Q${a}" "aA-aA\\-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\L${a}" "aA-aA\\-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\U${a}" "aA-aA\\-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\E${a}" "aA-aA\\-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\l${a}" "aA-aA\\-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\u${a}" "aA-aA\\-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\Q${a}" "aA-aA\\-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\L${a}" "aA-aA\\-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\U${a}" "aA-aA\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\E${a}" "aA-aA\\-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\l${a}" "aA-aA\\-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\u${a}" "aA-aA\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\Q${a}" "aA-aA\\-AA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\L${a}" "aA-aA\\-AA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\U${a}" "aA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\E${a}" "aA-aA\\-AA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\l${a}" "aA-aA\\-AA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\u${a}" "aA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\Q${a}" "aA-aa-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\L${a}" "aA-aa-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\U${a}" "aA-aa-aa\\-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\E${a}" "aA-aa-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\l${a}" "aA-aa-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\u${a}" "aA-aa-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\Q${a}" "aA-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\L${a}" "aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\U${a}" "aA-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\E${a}" "aA-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\l${a}" "aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\u${a}" "aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\Q${a}" "aA-aa-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\L${a}" "aA-aa-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\U${a}" "aA-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\E${a}" "aA-aa-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\l${a}" "aA-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\u${a}" "aA-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\Q${a}" "aA-aa-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\L${a}" "aA-aa-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\U${a}" "aA-aa-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\E${a}" "aA-aa-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\l${a}" "aA-aa-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\u${a}" "aA-aa-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\Q${a}" "aA-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\L${a}" "aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\U${a}" "aA-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\E${a}" "aA-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\l${a}" "aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\u${a}" "aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\Q${a}" "aA-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\L${a}" "aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\U${a}" "aA-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\E${a}" "aA-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\l${a}" "aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\u${a}" "aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\Q${a}" "aA-AA-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\L${a}" "aA-AA-AA\\-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\U${a}" "aA-AA-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\E${a}" "aA-AA-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\l${a}" "aA-AA-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\u${a}" "aA-AA-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\Q${a}" "aA-AA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\L${a}" "aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\U${a}" "aA-AA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\E${a}" "aA-AA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\l${a}" "aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\u${a}" "aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\Q${a}" "aA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\L${a}" "aA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\U${a}" "aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\E${a}" "aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\l${a}" "aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\u${a}" "aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\Q${a}" "aA-AA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\L${a}" "aA-AA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\U${a}" "aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\E${a}" "aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\l${a}" "aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\u${a}" "aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\Q${a}" "aA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\L${a}" "aA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\U${a}" "aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\E${a}" "aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\l${a}" "aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\u${a}" "aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\Q${a}" "aA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\L${a}" "aA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\U${a}" "aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\E${a}" "aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\l${a}" "aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\u${a}" "aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\Q${a}" "aA-aA-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\L${a}" "aA-aA-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\U${a}" "aA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\E${a}" "aA-aA-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\l${a}" "aA-aA-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\u${a}" "aA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\Q${a}" "aA-aA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\L${a}" "aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\U${a}" "aA-aA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\E${a}" "aA-aA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\l${a}" "aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\u${a}" "aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\Q${a}" "aA-aA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\L${a}" "aA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\U${a}" "aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\E${a}" "aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\l${a}" "aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\u${a}" "aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\Q${a}" "aA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\L${a}" "aA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\U${a}" "aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\E${a}" "aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\l${a}" "aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\u${a}" "aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\Q${a}" "aA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\L${a}" "aA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\U${a}" "aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\E${a}" "aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\l${a}" "aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\u${a}" "aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\Q${a}" "aA-aA-AA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\L${a}" "aA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\U${a}" "aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\E${a}" "aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\l${a}" "aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\u${a}" "aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\Q${a}" "aA-aA-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\L${a}" "aA-aA-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\U${a}" "aA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\E${a}" "aA-aA-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\l${a}" "aA-aA-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\u${a}" "aA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\Q${a}" "aA-aA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\L${a}" "aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\U${a}" "aA-aA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\E${a}" "aA-aA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\l${a}" "aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\u${a}" "aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\Q${a}" "aA-aA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\L${a}" "aA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\U${a}" "aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\E${a}" "aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\l${a}" "aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\u${a}" "aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\Q${a}" "aA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\L${a}" "aA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\U${a}" "aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\E${a}" "aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\l${a}" "aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\u${a}" "aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\Q${a}" "aA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\L${a}" "aA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\U${a}" "aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\E${a}" "aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\l${a}" "aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\u${a}" "aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\Q${a}" "aA-aA-AA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\L${a}" "aA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\U${a}" "aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\E${a}" "aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\l${a}" "aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\u${a}" "aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\Q${a}" "aA-AA-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\L${a}" "aA-AA-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\U${a}" "aA-AA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\E${a}" "aA-AA-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\l${a}" "aA-AA-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\u${a}" "aA-AA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\Q${a}" "aA-AA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\L${a}" "aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\U${a}" "aA-AA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\E${a}" "aA-AA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\l${a}" "aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\u${a}" "aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\Q${a}" "aA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\L${a}" "aA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\U${a}" "aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\E${a}" "aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\l${a}" "aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\u${a}" "aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\Q${a}" "aA-AA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\L${a}" "aA-AA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\U${a}" "aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\E${a}" "aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\l${a}" "aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\u${a}" "aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\Q${a}" "aA-AA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\L${a}" "aA-AA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\U${a}" "aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\E${a}" "aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\l${a}" "aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\u${a}" "aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\Q${a}" "aA-AA-AA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\L${a}" "aA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\U${a}" "aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\E${a}" "aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\l${a}" "aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\u${a}" "aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\Q${a}\Q${a}" "aA-aA\\-aA\\\\\\-aA\\\\\\\\\\\\\\-aA\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\Q${a}\L${a}" "aA-aA\\-aA\\\\\\-aA\\\\\\\\\\\\\\-aa\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\Q${a}\U${a}" "aA-aA\\-aA\\\\\\-aA\\\\\\\\\\\\\\-AA\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\Q${a}\E${a}" "aA-aA\\-aA\\\\\\-aA\\\\\\\\\\\\\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\Q${a}\l${a}" "aA-aA\\-aA\\\\\\-aA\\\\\\\\\\\\\\-aA\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\Q${a}\u${a}" "aA-aA\\-aA\\\\\\-aA\\\\\\\\\\\\\\-AA\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\L${a}\Q${a}" "aA-aA\\-aA\\\\\\-aa\\\\\\-aa\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\L${a}\L${a}" "aA-aA\\-aA\\\\\\-aa\\\\\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\L${a}\U${a}" "aA-aA\\-aA\\\\\\-aa\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\L${a}\E${a}" "aA-aA\\-aA\\\\\\-aa\\\\\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\L${a}\l${a}" "aA-aA\\-aA\\\\\\-aa\\\\\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\L${a}\u${a}" "aA-aA\\-aA\\\\\\-aa\\\\\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\U${a}\Q${a}" "aA-aA\\-aA\\\\\\-AA\\\\\\-AA\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\U${a}\L${a}" "aA-aA\\-aA\\\\\\-AA\\\\\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\U${a}\U${a}" "aA-aA\\-aA\\\\\\-AA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\U${a}\E${a}" "aA-aA\\-aA\\\\\\-AA\\\\\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\U${a}\l${a}" "aA-aA\\-aA\\\\\\-AA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\U${a}\u${a}" "aA-aA\\-aA\\\\\\-AA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\E${a}\Q${a}" "aA-aA\\-aA\\\\\\-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\E${a}\L${a}" "aA-aA\\-aA\\\\\\-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\E${a}\U${a}" "aA-aA\\-aA\\\\\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\E${a}\E${a}" "aA-aA\\-aA\\\\\\-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\E${a}\l${a}" "aA-aA\\-aA\\\\\\-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\E${a}\u${a}" "aA-aA\\-aA\\\\\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\l${a}\Q${a}" "aA-aA\\-aA\\\\\\-aA\\\\\\-aA\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\l${a}\L${a}" "aA-aA\\-aA\\\\\\-aA\\\\\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\l${a}\U${a}" "aA-aA\\-aA\\\\\\-aA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\l${a}\E${a}" "aA-aA\\-aA\\\\\\-aA\\\\\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\l${a}\l${a}" "aA-aA\\-aA\\\\\\-aA\\\\\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\l${a}\u${a}" "aA-aA\\-aA\\\\\\-aA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\u${a}\Q${a}" "aA-aA\\-aA\\\\\\-AA\\\\\\-aA\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\u${a}\L${a}" "aA-aA\\-aA\\\\\\-AA\\\\\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\u${a}\U${a}" "aA-aA\\-aA\\\\\\-AA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\u${a}\E${a}" "aA-aA\\-aA\\\\\\-AA\\\\\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\u${a}\l${a}" "aA-aA\\-aA\\\\\\-AA\\\\\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\Q${a}\u${a}\u${a}" "aA-aA\\-aA\\\\\\-AA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\Q${a}\Q${a}" "aA-aA\\-aa\\-aa\\\\\\-aa\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\Q${a}\L${a}" "aA-aA\\-aa\\-aa\\\\\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\Q${a}\U${a}" "aA-aA\\-aa\\-aa\\\\\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\Q${a}\E${a}" "aA-aA\\-aa\\-aa\\\\\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\Q${a}\l${a}" "aA-aA\\-aa\\-aa\\\\\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\Q${a}\u${a}" "aA-aA\\-aa\\-aa\\\\\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\L${a}\Q${a}" "aA-aA\\-aa\\-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\L${a}\L${a}" "aA-aA\\-aa\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\L${a}\U${a}" "aA-aA\\-aa\\-aa\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\L${a}\E${a}" "aA-aA\\-aa\\-aa\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\L${a}\l${a}" "aA-aA\\-aa\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\L${a}\u${a}" "aA-aA\\-aa\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\U${a}\Q${a}" "aA-aA\\-aa\\-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\U${a}\L${a}" "aA-aA\\-aa\\-AA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\U${a}\U${a}" "aA-aA\\-aa\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\U${a}\E${a}" "aA-aA\\-aa\\-AA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\U${a}\l${a}" "aA-aA\\-aa\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\U${a}\u${a}" "aA-aA\\-aa\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\E${a}\Q${a}" "aA-aA\\-aa\\-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\E${a}\L${a}" "aA-aA\\-aa\\-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\E${a}\U${a}" "aA-aA\\-aa\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\E${a}\E${a}" "aA-aA\\-aa\\-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\E${a}\l${a}" "aA-aA\\-aa\\-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\E${a}\u${a}" "aA-aA\\-aa\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\l${a}\Q${a}" "aA-aA\\-aa\\-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\l${a}\L${a}" "aA-aA\\-aa\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\l${a}\U${a}" "aA-aA\\-aa\\-aa\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\l${a}\E${a}" "aA-aA\\-aa\\-aa\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\l${a}\l${a}" "aA-aA\\-aa\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\l${a}\u${a}" "aA-aA\\-aa\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\u${a}\Q${a}" "aA-aA\\-aa\\-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\u${a}\L${a}" "aA-aA\\-aa\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\u${a}\U${a}" "aA-aA\\-aa\\-aa\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\u${a}\E${a}" "aA-aA\\-aa\\-aa\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\u${a}\l${a}" "aA-aA\\-aa\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\L${a}\u${a}\u${a}" "aA-aA\\-aa\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\Q${a}\Q${a}" "aA-aA\\-AA\\-AA\\\\\\-AA\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\Q${a}\L${a}" "aA-aA\\-AA\\-AA\\\\\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\Q${a}\U${a}" "aA-aA\\-AA\\-AA\\\\\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\Q${a}\E${a}" "aA-aA\\-AA\\-AA\\\\\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\Q${a}\l${a}" "aA-aA\\-AA\\-AA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\Q${a}\u${a}" "aA-aA\\-AA\\-AA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\L${a}\Q${a}" "aA-aA\\-AA\\-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\L${a}\L${a}" "aA-aA\\-AA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\L${a}\U${a}" "aA-aA\\-AA\\-aa\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\L${a}\E${a}" "aA-aA\\-AA\\-aa\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\L${a}\l${a}" "aA-aA\\-AA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\L${a}\u${a}" "aA-aA\\-AA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\U${a}\Q${a}" "aA-aA\\-AA\\-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\U${a}\L${a}" "aA-aA\\-AA\\-AA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\U${a}\U${a}" "aA-aA\\-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\U${a}\E${a}" "aA-aA\\-AA\\-AA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\U${a}\l${a}" "aA-aA\\-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\U${a}\u${a}" "aA-aA\\-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\E${a}\Q${a}" "aA-aA\\-AA\\-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\E${a}\L${a}" "aA-aA\\-AA\\-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\E${a}\U${a}" "aA-aA\\-AA\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\E${a}\E${a}" "aA-aA\\-AA\\-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\E${a}\l${a}" "aA-aA\\-AA\\-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\E${a}\u${a}" "aA-aA\\-AA\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\l${a}\Q${a}" "aA-aA\\-AA\\-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\l${a}\L${a}" "aA-aA\\-AA\\-AA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\l${a}\U${a}" "aA-aA\\-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\l${a}\E${a}" "aA-aA\\-AA\\-AA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\l${a}\l${a}" "aA-aA\\-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\l${a}\u${a}" "aA-aA\\-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\u${a}\Q${a}" "aA-aA\\-AA\\-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\u${a}\L${a}" "aA-aA\\-AA\\-AA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\u${a}\U${a}" "aA-aA\\-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\u${a}\E${a}" "aA-aA\\-AA\\-AA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\u${a}\l${a}" "aA-aA\\-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\U${a}\u${a}\u${a}" "aA-aA\\-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\Q${a}\Q${a}" "aA-aA\\-aA-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\Q${a}\L${a}" "aA-aA\\-aA-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\Q${a}\U${a}" "aA-aA\\-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\Q${a}\E${a}" "aA-aA\\-aA-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\Q${a}\l${a}" "aA-aA\\-aA-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\Q${a}\u${a}" "aA-aA\\-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\L${a}\Q${a}" "aA-aA\\-aA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\L${a}\L${a}" "aA-aA\\-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\L${a}\U${a}" "aA-aA\\-aA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\L${a}\E${a}" "aA-aA\\-aA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\L${a}\l${a}" "aA-aA\\-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\L${a}\u${a}" "aA-aA\\-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\U${a}\Q${a}" "aA-aA\\-aA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\U${a}\L${a}" "aA-aA\\-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\U${a}\U${a}" "aA-aA\\-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\U${a}\E${a}" "aA-aA\\-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\U${a}\l${a}" "aA-aA\\-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\U${a}\u${a}" "aA-aA\\-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\E${a}\Q${a}" "aA-aA\\-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\E${a}\L${a}" "aA-aA\\-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\E${a}\U${a}" "aA-aA\\-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\E${a}\E${a}" "aA-aA\\-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\E${a}\l${a}" "aA-aA\\-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\E${a}\u${a}" "aA-aA\\-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\l${a}\Q${a}" "aA-aA\\-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\l${a}\L${a}" "aA-aA\\-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\l${a}\U${a}" "aA-aA\\-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\l${a}\E${a}" "aA-aA\\-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\l${a}\l${a}" "aA-aA\\-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\l${a}\u${a}" "aA-aA\\-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\u${a}\Q${a}" "aA-aA\\-aA-AA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\u${a}\L${a}" "aA-aA\\-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\u${a}\U${a}" "aA-aA\\-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\u${a}\E${a}" "aA-aA\\-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\u${a}\l${a}" "aA-aA\\-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\E${a}\u${a}\u${a}" "aA-aA\\-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\Q${a}\Q${a}" "aA-aA\\-aA\\-aA\\\\\\-aA\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\Q${a}\L${a}" "aA-aA\\-aA\\-aA\\\\\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\Q${a}\U${a}" "aA-aA\\-aA\\-aA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\Q${a}\E${a}" "aA-aA\\-aA\\-aA\\\\\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\Q${a}\l${a}" "aA-aA\\-aA\\-aA\\\\\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\Q${a}\u${a}" "aA-aA\\-aA\\-aA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\L${a}\Q${a}" "aA-aA\\-aA\\-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\L${a}\L${a}" "aA-aA\\-aA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\L${a}\U${a}" "aA-aA\\-aA\\-aa\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\L${a}\E${a}" "aA-aA\\-aA\\-aa\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\L${a}\l${a}" "aA-aA\\-aA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\L${a}\u${a}" "aA-aA\\-aA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\U${a}\Q${a}" "aA-aA\\-aA\\-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\U${a}\L${a}" "aA-aA\\-aA\\-AA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\U${a}\U${a}" "aA-aA\\-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\U${a}\E${a}" "aA-aA\\-aA\\-AA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\U${a}\l${a}" "aA-aA\\-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\U${a}\u${a}" "aA-aA\\-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\E${a}\Q${a}" "aA-aA\\-aA\\-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\E${a}\L${a}" "aA-aA\\-aA\\-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\E${a}\U${a}" "aA-aA\\-aA\\-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\E${a}\E${a}" "aA-aA\\-aA\\-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\E${a}\l${a}" "aA-aA\\-aA\\-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\E${a}\u${a}" "aA-aA\\-aA\\-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\l${a}\Q${a}" "aA-aA\\-aA\\-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\l${a}\L${a}" "aA-aA\\-aA\\-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\l${a}\U${a}" "aA-aA\\-aA\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\l${a}\E${a}" "aA-aA\\-aA\\-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\l${a}\l${a}" "aA-aA\\-aA\\-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\l${a}\u${a}" "aA-aA\\-aA\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\u${a}\Q${a}" "aA-aA\\-aA\\-AA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\u${a}\L${a}" "aA-aA\\-aA\\-AA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\u${a}\U${a}" "aA-aA\\-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\u${a}\E${a}" "aA-aA\\-aA\\-AA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\u${a}\l${a}" "aA-aA\\-aA\\-AA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\l${a}\u${a}\u${a}" "aA-aA\\-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\Q${a}\Q${a}" "aA-aA\\-AA\\-aA\\\\\\-aA\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\Q${a}\L${a}" "aA-aA\\-AA\\-aA\\\\\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\Q${a}\U${a}" "aA-aA\\-AA\\-aA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\Q${a}\E${a}" "aA-aA\\-AA\\-aA\\\\\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\Q${a}\l${a}" "aA-aA\\-AA\\-aA\\\\\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\Q${a}\u${a}" "aA-aA\\-AA\\-aA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\L${a}\Q${a}" "aA-aA\\-AA\\-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\L${a}\L${a}" "aA-aA\\-AA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\L${a}\U${a}" "aA-aA\\-AA\\-aa\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\L${a}\E${a}" "aA-aA\\-AA\\-aa\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\L${a}\l${a}" "aA-aA\\-AA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\L${a}\u${a}" "aA-aA\\-AA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\U${a}\Q${a}" "aA-aA\\-AA\\-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\U${a}\L${a}" "aA-aA\\-AA\\-AA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\U${a}\U${a}" "aA-aA\\-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\U${a}\E${a}" "aA-aA\\-AA\\-AA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\U${a}\l${a}" "aA-aA\\-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\U${a}\u${a}" "aA-aA\\-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\E${a}\Q${a}" "aA-aA\\-AA\\-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\E${a}\L${a}" "aA-aA\\-AA\\-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\E${a}\U${a}" "aA-aA\\-AA\\-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\E${a}\E${a}" "aA-aA\\-AA\\-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\E${a}\l${a}" "aA-aA\\-AA\\-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\E${a}\u${a}" "aA-aA\\-AA\\-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\l${a}\Q${a}" "aA-aA\\-AA\\-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\l${a}\L${a}" "aA-aA\\-AA\\-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\l${a}\U${a}" "aA-aA\\-AA\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\l${a}\E${a}" "aA-aA\\-AA\\-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\l${a}\l${a}" "aA-aA\\-AA\\-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\l${a}\u${a}" "aA-aA\\-AA\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\u${a}\Q${a}" "aA-aA\\-AA\\-AA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\u${a}\L${a}" "aA-aA\\-AA\\-AA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\u${a}\U${a}" "aA-aA\\-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\u${a}\E${a}" "aA-aA\\-AA\\-AA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\u${a}\l${a}" "aA-aA\\-AA\\-AA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\Q${a}\u${a}\u${a}\u${a}" "aA-aA\\-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\Q${a}\Q${a}" "aA-aa-aa\\-aa\\\\\\-aa\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\Q${a}\L${a}" "aA-aa-aa\\-aa\\\\\\-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\Q${a}\U${a}" "aA-aa-aa\\-aa\\\\\\-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\Q${a}\E${a}" "aA-aa-aa\\-aa\\\\\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\Q${a}\l${a}" "aA-aa-aa\\-aa\\\\\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\Q${a}\u${a}" "aA-aa-aa\\-aa\\\\\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\L${a}\Q${a}" "aA-aa-aa\\-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\L${a}\L${a}" "aA-aa-aa\\-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\L${a}\U${a}" "aA-aa-aa\\-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\L${a}\E${a}" "aA-aa-aa\\-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\L${a}\l${a}" "aA-aa-aa\\-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\L${a}\u${a}" "aA-aa-aa\\-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\U${a}\Q${a}" "aA-aa-aa\\-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\U${a}\L${a}" "aA-aa-aa\\-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\U${a}\U${a}" "aA-aa-aa\\-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\U${a}\E${a}" "aA-aa-aa\\-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\U${a}\l${a}" "aA-aa-aa\\-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\U${a}\u${a}" "aA-aa-aa\\-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\E${a}\Q${a}" "aA-aa-aa\\-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\E${a}\L${a}" "aA-aa-aa\\-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\E${a}\U${a}" "aA-aa-aa\\-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\E${a}\E${a}" "aA-aa-aa\\-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\E${a}\l${a}" "aA-aa-aa\\-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\E${a}\u${a}" "aA-aa-aa\\-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\l${a}\Q${a}" "aA-aa-aa\\-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\l${a}\L${a}" "aA-aa-aa\\-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\l${a}\U${a}" "aA-aa-aa\\-aa\\-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\l${a}\E${a}" "aA-aa-aa\\-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\l${a}\l${a}" "aA-aa-aa\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\l${a}\u${a}" "aA-aa-aa\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\u${a}\Q${a}" "aA-aa-aa\\-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\u${a}\L${a}" "aA-aa-aa\\-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\u${a}\U${a}" "aA-aa-aa\\-aa\\-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\u${a}\E${a}" "aA-aa-aa\\-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\u${a}\l${a}" "aA-aa-aa\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\Q${a}\u${a}\u${a}" "aA-aa-aa\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\Q${a}\Q${a}" "aA-aa-aa-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\Q${a}\L${a}" "aA-aa-aa-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\Q${a}\U${a}" "aA-aa-aa-aa\\-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\Q${a}\E${a}" "aA-aa-aa-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\Q${a}\l${a}" "aA-aa-aa-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\Q${a}\u${a}" "aA-aa-aa-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\L${a}\Q${a}" "aA-aa-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\L${a}\L${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\L${a}\U${a}" "aA-aa-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\L${a}\E${a}" "aA-aa-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\L${a}\l${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\L${a}\u${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\U${a}\Q${a}" "aA-aa-aa-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\U${a}\L${a}" "aA-aa-aa-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\U${a}\U${a}" "aA-aa-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\U${a}\E${a}" "aA-aa-aa-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\U${a}\l${a}" "aA-aa-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\U${a}\u${a}" "aA-aa-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\E${a}\Q${a}" "aA-aa-aa-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\E${a}\L${a}" "aA-aa-aa-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\E${a}\U${a}" "aA-aa-aa-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\E${a}\E${a}" "aA-aa-aa-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\E${a}\l${a}" "aA-aa-aa-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\E${a}\u${a}" "aA-aa-aa-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\l${a}\Q${a}" "aA-aa-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\l${a}\L${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\l${a}\U${a}" "aA-aa-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\l${a}\E${a}" "aA-aa-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\l${a}\l${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\l${a}\u${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\u${a}\Q${a}" "aA-aa-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\u${a}\L${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\u${a}\U${a}" "aA-aa-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\u${a}\E${a}" "aA-aa-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\u${a}\l${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\L${a}\u${a}\u${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\Q${a}\Q${a}" "aA-aa-AA-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\Q${a}\L${a}" "aA-aa-AA-AA\\-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\Q${a}\U${a}" "aA-aa-AA-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\Q${a}\E${a}" "aA-aa-AA-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\Q${a}\l${a}" "aA-aa-AA-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\Q${a}\u${a}" "aA-aa-AA-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\L${a}\Q${a}" "aA-aa-AA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\L${a}\L${a}" "aA-aa-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\L${a}\U${a}" "aA-aa-AA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\L${a}\E${a}" "aA-aa-AA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\L${a}\l${a}" "aA-aa-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\L${a}\u${a}" "aA-aa-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\U${a}\Q${a}" "aA-aa-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\U${a}\L${a}" "aA-aa-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\U${a}\U${a}" "aA-aa-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\U${a}\E${a}" "aA-aa-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\U${a}\l${a}" "aA-aa-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\U${a}\u${a}" "aA-aa-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\E${a}\Q${a}" "aA-aa-AA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\E${a}\L${a}" "aA-aa-AA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\E${a}\U${a}" "aA-aa-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\E${a}\E${a}" "aA-aa-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\E${a}\l${a}" "aA-aa-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\E${a}\u${a}" "aA-aa-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\l${a}\Q${a}" "aA-aa-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\l${a}\L${a}" "aA-aa-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\l${a}\U${a}" "aA-aa-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\l${a}\E${a}" "aA-aa-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\l${a}\l${a}" "aA-aa-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\l${a}\u${a}" "aA-aa-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\u${a}\Q${a}" "aA-aa-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\u${a}\L${a}" "aA-aa-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\u${a}\U${a}" "aA-aa-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\u${a}\E${a}" "aA-aa-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\u${a}\l${a}" "aA-aa-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\U${a}\u${a}\u${a}" "aA-aa-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\Q${a}\Q${a}" "aA-aa-aA-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\Q${a}\L${a}" "aA-aa-aA-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\Q${a}\U${a}" "aA-aa-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\Q${a}\E${a}" "aA-aa-aA-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\Q${a}\l${a}" "aA-aa-aA-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\Q${a}\u${a}" "aA-aa-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\L${a}\Q${a}" "aA-aa-aA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\L${a}\L${a}" "aA-aa-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\L${a}\U${a}" "aA-aa-aA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\L${a}\E${a}" "aA-aa-aA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\L${a}\l${a}" "aA-aa-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\L${a}\u${a}" "aA-aa-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\U${a}\Q${a}" "aA-aa-aA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\U${a}\L${a}" "aA-aa-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\U${a}\U${a}" "aA-aa-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\U${a}\E${a}" "aA-aa-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\U${a}\l${a}" "aA-aa-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\U${a}\u${a}" "aA-aa-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\E${a}\Q${a}" "aA-aa-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\E${a}\L${a}" "aA-aa-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\E${a}\U${a}" "aA-aa-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\E${a}\E${a}" "aA-aa-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\E${a}\l${a}" "aA-aa-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\E${a}\u${a}" "aA-aa-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\l${a}\Q${a}" "aA-aa-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\l${a}\L${a}" "aA-aa-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\l${a}\U${a}" "aA-aa-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\l${a}\E${a}" "aA-aa-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\l${a}\l${a}" "aA-aa-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\l${a}\u${a}" "aA-aa-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\u${a}\Q${a}" "aA-aa-aA-AA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\u${a}\L${a}" "aA-aa-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\u${a}\U${a}" "aA-aa-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\u${a}\E${a}" "aA-aa-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\u${a}\l${a}" "aA-aa-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\E${a}\u${a}\u${a}" "aA-aa-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\Q${a}\Q${a}" "aA-aa-aa-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\Q${a}\L${a}" "aA-aa-aa-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\Q${a}\U${a}" "aA-aa-aa-aa\\-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\Q${a}\E${a}" "aA-aa-aa-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\Q${a}\l${a}" "aA-aa-aa-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\Q${a}\u${a}" "aA-aa-aa-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\L${a}\Q${a}" "aA-aa-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\L${a}\L${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\L${a}\U${a}" "aA-aa-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\L${a}\E${a}" "aA-aa-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\L${a}\l${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\L${a}\u${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\U${a}\Q${a}" "aA-aa-aa-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\U${a}\L${a}" "aA-aa-aa-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\U${a}\U${a}" "aA-aa-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\U${a}\E${a}" "aA-aa-aa-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\U${a}\l${a}" "aA-aa-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\U${a}\u${a}" "aA-aa-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\E${a}\Q${a}" "aA-aa-aa-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\E${a}\L${a}" "aA-aa-aa-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\E${a}\U${a}" "aA-aa-aa-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\E${a}\E${a}" "aA-aa-aa-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\E${a}\l${a}" "aA-aa-aa-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\E${a}\u${a}" "aA-aa-aa-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\l${a}\Q${a}" "aA-aa-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\l${a}\L${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\l${a}\U${a}" "aA-aa-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\l${a}\E${a}" "aA-aa-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\l${a}\l${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\l${a}\u${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\u${a}\Q${a}" "aA-aa-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\u${a}\L${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\u${a}\U${a}" "aA-aa-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\u${a}\E${a}" "aA-aa-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\u${a}\l${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\l${a}\u${a}\u${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\Q${a}\Q${a}" "aA-aa-aa-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\Q${a}\L${a}" "aA-aa-aa-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\Q${a}\U${a}" "aA-aa-aa-aa\\-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\Q${a}\E${a}" "aA-aa-aa-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\Q${a}\l${a}" "aA-aa-aa-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\Q${a}\u${a}" "aA-aa-aa-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\L${a}\Q${a}" "aA-aa-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\L${a}\L${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\L${a}\U${a}" "aA-aa-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\L${a}\E${a}" "aA-aa-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\L${a}\l${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\L${a}\u${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\U${a}\Q${a}" "aA-aa-aa-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\U${a}\L${a}" "aA-aa-aa-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\U${a}\U${a}" "aA-aa-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\U${a}\E${a}" "aA-aa-aa-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\U${a}\l${a}" "aA-aa-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\U${a}\u${a}" "aA-aa-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\E${a}\Q${a}" "aA-aa-aa-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\E${a}\L${a}" "aA-aa-aa-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\E${a}\U${a}" "aA-aa-aa-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\E${a}\E${a}" "aA-aa-aa-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\E${a}\l${a}" "aA-aa-aa-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\E${a}\u${a}" "aA-aa-aa-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\l${a}\Q${a}" "aA-aa-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\l${a}\L${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\l${a}\U${a}" "aA-aa-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\l${a}\E${a}" "aA-aa-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\l${a}\l${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\l${a}\u${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\u${a}\Q${a}" "aA-aa-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\u${a}\L${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\u${a}\U${a}" "aA-aa-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\u${a}\E${a}" "aA-aa-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\u${a}\l${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\L${a}\u${a}\u${a}\u${a}" "aA-aa-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\Q${a}\Q${a}" "aA-AA-AA\\-AA\\\\\\-AA\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\Q${a}\L${a}" "aA-AA-AA\\-AA\\\\\\-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\Q${a}\U${a}" "aA-AA-AA\\-AA\\\\\\-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\Q${a}\E${a}" "aA-AA-AA\\-AA\\\\\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\Q${a}\l${a}" "aA-AA-AA\\-AA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\Q${a}\u${a}" "aA-AA-AA\\-AA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\L${a}\Q${a}" "aA-AA-AA\\-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\L${a}\L${a}" "aA-AA-AA\\-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\L${a}\U${a}" "aA-AA-AA\\-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\L${a}\E${a}" "aA-AA-AA\\-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\L${a}\l${a}" "aA-AA-AA\\-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\L${a}\u${a}" "aA-AA-AA\\-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\U${a}\Q${a}" "aA-AA-AA\\-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\U${a}\L${a}" "aA-AA-AA\\-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\U${a}\U${a}" "aA-AA-AA\\-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\U${a}\E${a}" "aA-AA-AA\\-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\U${a}\l${a}" "aA-AA-AA\\-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\U${a}\u${a}" "aA-AA-AA\\-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\E${a}\Q${a}" "aA-AA-AA\\-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\E${a}\L${a}" "aA-AA-AA\\-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\E${a}\U${a}" "aA-AA-AA\\-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\E${a}\E${a}" "aA-AA-AA\\-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\E${a}\l${a}" "aA-AA-AA\\-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\E${a}\u${a}" "aA-AA-AA\\-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\l${a}\Q${a}" "aA-AA-AA\\-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\l${a}\L${a}" "aA-AA-AA\\-AA\\-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\l${a}\U${a}" "aA-AA-AA\\-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\l${a}\E${a}" "aA-AA-AA\\-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\l${a}\l${a}" "aA-AA-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\l${a}\u${a}" "aA-AA-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\u${a}\Q${a}" "aA-AA-AA\\-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\u${a}\L${a}" "aA-AA-AA\\-AA\\-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\u${a}\U${a}" "aA-AA-AA\\-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\u${a}\E${a}" "aA-AA-AA\\-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\u${a}\l${a}" "aA-AA-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\Q${a}\u${a}\u${a}" "aA-AA-AA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\Q${a}\Q${a}" "aA-AA-aa-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\Q${a}\L${a}" "aA-AA-aa-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\Q${a}\U${a}" "aA-AA-aa-aa\\-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\Q${a}\E${a}" "aA-AA-aa-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\Q${a}\l${a}" "aA-AA-aa-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\Q${a}\u${a}" "aA-AA-aa-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\L${a}\Q${a}" "aA-AA-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\L${a}\L${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\L${a}\U${a}" "aA-AA-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\L${a}\E${a}" "aA-AA-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\L${a}\l${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\L${a}\u${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\U${a}\Q${a}" "aA-AA-aa-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\U${a}\L${a}" "aA-AA-aa-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\U${a}\U${a}" "aA-AA-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\U${a}\E${a}" "aA-AA-aa-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\U${a}\l${a}" "aA-AA-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\U${a}\u${a}" "aA-AA-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\E${a}\Q${a}" "aA-AA-aa-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\E${a}\L${a}" "aA-AA-aa-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\E${a}\U${a}" "aA-AA-aa-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\E${a}\E${a}" "aA-AA-aa-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\E${a}\l${a}" "aA-AA-aa-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\E${a}\u${a}" "aA-AA-aa-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\l${a}\Q${a}" "aA-AA-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\l${a}\L${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\l${a}\U${a}" "aA-AA-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\l${a}\E${a}" "aA-AA-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\l${a}\l${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\l${a}\u${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\u${a}\Q${a}" "aA-AA-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\u${a}\L${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\u${a}\U${a}" "aA-AA-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\u${a}\E${a}" "aA-AA-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\u${a}\l${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\L${a}\u${a}\u${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\Q${a}\Q${a}" "aA-AA-AA-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\Q${a}\L${a}" "aA-AA-AA-AA\\-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\Q${a}\U${a}" "aA-AA-AA-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\Q${a}\E${a}" "aA-AA-AA-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\Q${a}\l${a}" "aA-AA-AA-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\Q${a}\u${a}" "aA-AA-AA-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\L${a}\Q${a}" "aA-AA-AA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\L${a}\L${a}" "aA-AA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\L${a}\U${a}" "aA-AA-AA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\L${a}\E${a}" "aA-AA-AA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\L${a}\l${a}" "aA-AA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\L${a}\u${a}" "aA-AA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\U${a}\Q${a}" "aA-AA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\U${a}\L${a}" "aA-AA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\U${a}\U${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\U${a}\E${a}" "aA-AA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\U${a}\l${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\U${a}\u${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\E${a}\Q${a}" "aA-AA-AA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\E${a}\L${a}" "aA-AA-AA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\E${a}\U${a}" "aA-AA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\E${a}\E${a}" "aA-AA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\E${a}\l${a}" "aA-AA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\E${a}\u${a}" "aA-AA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\l${a}\Q${a}" "aA-AA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\l${a}\L${a}" "aA-AA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\l${a}\U${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\l${a}\E${a}" "aA-AA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\l${a}\l${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\l${a}\u${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\u${a}\Q${a}" "aA-AA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\u${a}\L${a}" "aA-AA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\u${a}\U${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\u${a}\E${a}" "aA-AA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\u${a}\l${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\U${a}\u${a}\u${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\Q${a}\Q${a}" "aA-AA-aA-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\Q${a}\L${a}" "aA-AA-aA-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\Q${a}\U${a}" "aA-AA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\Q${a}\E${a}" "aA-AA-aA-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\Q${a}\l${a}" "aA-AA-aA-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\Q${a}\u${a}" "aA-AA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\L${a}\Q${a}" "aA-AA-aA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\L${a}\L${a}" "aA-AA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\L${a}\U${a}" "aA-AA-aA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\L${a}\E${a}" "aA-AA-aA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\L${a}\l${a}" "aA-AA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\L${a}\u${a}" "aA-AA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\U${a}\Q${a}" "aA-AA-aA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\U${a}\L${a}" "aA-AA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\U${a}\U${a}" "aA-AA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\U${a}\E${a}" "aA-AA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\U${a}\l${a}" "aA-AA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\U${a}\u${a}" "aA-AA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\E${a}\Q${a}" "aA-AA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\E${a}\L${a}" "aA-AA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\E${a}\U${a}" "aA-AA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\E${a}\E${a}" "aA-AA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\E${a}\l${a}" "aA-AA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\E${a}\u${a}" "aA-AA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\l${a}\Q${a}" "aA-AA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\l${a}\L${a}" "aA-AA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\l${a}\U${a}" "aA-AA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\l${a}\E${a}" "aA-AA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\l${a}\l${a}" "aA-AA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\l${a}\u${a}" "aA-AA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\u${a}\Q${a}" "aA-AA-aA-AA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\u${a}\L${a}" "aA-AA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\u${a}\U${a}" "aA-AA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\u${a}\E${a}" "aA-AA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\u${a}\l${a}" "aA-AA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\E${a}\u${a}\u${a}" "aA-AA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\Q${a}\Q${a}" "aA-AA-AA-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\Q${a}\L${a}" "aA-AA-AA-AA\\-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\Q${a}\U${a}" "aA-AA-AA-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\Q${a}\E${a}" "aA-AA-AA-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\Q${a}\l${a}" "aA-AA-AA-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\Q${a}\u${a}" "aA-AA-AA-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\L${a}\Q${a}" "aA-AA-AA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\L${a}\L${a}" "aA-AA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\L${a}\U${a}" "aA-AA-AA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\L${a}\E${a}" "aA-AA-AA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\L${a}\l${a}" "aA-AA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\L${a}\u${a}" "aA-AA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\U${a}\Q${a}" "aA-AA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\U${a}\L${a}" "aA-AA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\U${a}\U${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\U${a}\E${a}" "aA-AA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\U${a}\l${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\U${a}\u${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\E${a}\Q${a}" "aA-AA-AA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\E${a}\L${a}" "aA-AA-AA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\E${a}\U${a}" "aA-AA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\E${a}\E${a}" "aA-AA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\E${a}\l${a}" "aA-AA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\E${a}\u${a}" "aA-AA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\l${a}\Q${a}" "aA-AA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\l${a}\L${a}" "aA-AA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\l${a}\U${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\l${a}\E${a}" "aA-AA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\l${a}\l${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\l${a}\u${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\u${a}\Q${a}" "aA-AA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\u${a}\L${a}" "aA-AA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\u${a}\U${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\u${a}\E${a}" "aA-AA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\u${a}\l${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\l${a}\u${a}\u${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\Q${a}\Q${a}" "aA-AA-AA-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\Q${a}\L${a}" "aA-AA-AA-AA\\-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\Q${a}\U${a}" "aA-AA-AA-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\Q${a}\E${a}" "aA-AA-AA-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\Q${a}\l${a}" "aA-AA-AA-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\Q${a}\u${a}" "aA-AA-AA-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\L${a}\Q${a}" "aA-AA-AA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\L${a}\L${a}" "aA-AA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\L${a}\U${a}" "aA-AA-AA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\L${a}\E${a}" "aA-AA-AA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\L${a}\l${a}" "aA-AA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\L${a}\u${a}" "aA-AA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\U${a}\Q${a}" "aA-AA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\U${a}\L${a}" "aA-AA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\U${a}\U${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\U${a}\E${a}" "aA-AA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\U${a}\l${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\U${a}\u${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\E${a}\Q${a}" "aA-AA-AA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\E${a}\L${a}" "aA-AA-AA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\E${a}\U${a}" "aA-AA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\E${a}\E${a}" "aA-AA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\E${a}\l${a}" "aA-AA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\E${a}\u${a}" "aA-AA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\l${a}\Q${a}" "aA-AA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\l${a}\L${a}" "aA-AA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\l${a}\U${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\l${a}\E${a}" "aA-AA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\l${a}\l${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\l${a}\u${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\u${a}\Q${a}" "aA-AA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\u${a}\L${a}" "aA-AA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\u${a}\U${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\u${a}\E${a}" "aA-AA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\u${a}\l${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\U${a}\u${a}\u${a}\u${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\Q${a}\Q${a}" "aA-aA-aA\\-aA\\\\\\-aA\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\Q${a}\L${a}" "aA-aA-aA\\-aA\\\\\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\Q${a}\U${a}" "aA-aA-aA\\-aA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\Q${a}\E${a}" "aA-aA-aA\\-aA\\\\\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\Q${a}\l${a}" "aA-aA-aA\\-aA\\\\\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\Q${a}\u${a}" "aA-aA-aA\\-aA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\L${a}\Q${a}" "aA-aA-aA\\-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\L${a}\L${a}" "aA-aA-aA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\L${a}\U${a}" "aA-aA-aA\\-aa\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\L${a}\E${a}" "aA-aA-aA\\-aa\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\L${a}\l${a}" "aA-aA-aA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\L${a}\u${a}" "aA-aA-aA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\U${a}\Q${a}" "aA-aA-aA\\-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\U${a}\L${a}" "aA-aA-aA\\-AA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\U${a}\U${a}" "aA-aA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\U${a}\E${a}" "aA-aA-aA\\-AA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\U${a}\l${a}" "aA-aA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\U${a}\u${a}" "aA-aA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\E${a}\Q${a}" "aA-aA-aA\\-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\E${a}\L${a}" "aA-aA-aA\\-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\E${a}\U${a}" "aA-aA-aA\\-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\E${a}\E${a}" "aA-aA-aA\\-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\E${a}\l${a}" "aA-aA-aA\\-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\E${a}\u${a}" "aA-aA-aA\\-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\l${a}\Q${a}" "aA-aA-aA\\-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\l${a}\L${a}" "aA-aA-aA\\-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\l${a}\U${a}" "aA-aA-aA\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\l${a}\E${a}" "aA-aA-aA\\-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\l${a}\l${a}" "aA-aA-aA\\-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\l${a}\u${a}" "aA-aA-aA\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\u${a}\Q${a}" "aA-aA-aA\\-AA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\u${a}\L${a}" "aA-aA-aA\\-AA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\u${a}\U${a}" "aA-aA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\u${a}\E${a}" "aA-aA-aA\\-AA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\u${a}\l${a}" "aA-aA-aA\\-AA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\Q${a}\u${a}\u${a}" "aA-aA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\Q${a}\Q${a}" "aA-aA-aa-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\Q${a}\L${a}" "aA-aA-aa-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\Q${a}\U${a}" "aA-aA-aa-aa\\-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\Q${a}\E${a}" "aA-aA-aa-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\Q${a}\l${a}" "aA-aA-aa-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\Q${a}\u${a}" "aA-aA-aa-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\L${a}\Q${a}" "aA-aA-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\L${a}\L${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\L${a}\U${a}" "aA-aA-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\L${a}\E${a}" "aA-aA-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\L${a}\l${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\L${a}\u${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\U${a}\Q${a}" "aA-aA-aa-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\U${a}\L${a}" "aA-aA-aa-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\U${a}\U${a}" "aA-aA-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\U${a}\E${a}" "aA-aA-aa-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\U${a}\l${a}" "aA-aA-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\U${a}\u${a}" "aA-aA-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\E${a}\Q${a}" "aA-aA-aa-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\E${a}\L${a}" "aA-aA-aa-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\E${a}\U${a}" "aA-aA-aa-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\E${a}\E${a}" "aA-aA-aa-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\E${a}\l${a}" "aA-aA-aa-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\E${a}\u${a}" "aA-aA-aa-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\l${a}\Q${a}" "aA-aA-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\l${a}\L${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\l${a}\U${a}" "aA-aA-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\l${a}\E${a}" "aA-aA-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\l${a}\l${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\l${a}\u${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\u${a}\Q${a}" "aA-aA-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\u${a}\L${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\u${a}\U${a}" "aA-aA-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\u${a}\E${a}" "aA-aA-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\u${a}\l${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\L${a}\u${a}\u${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\Q${a}\Q${a}" "aA-aA-AA-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\Q${a}\L${a}" "aA-aA-AA-AA\\-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\Q${a}\U${a}" "aA-aA-AA-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\Q${a}\E${a}" "aA-aA-AA-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\Q${a}\l${a}" "aA-aA-AA-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\Q${a}\u${a}" "aA-aA-AA-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\L${a}\Q${a}" "aA-aA-AA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\L${a}\L${a}" "aA-aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\L${a}\U${a}" "aA-aA-AA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\L${a}\E${a}" "aA-aA-AA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\L${a}\l${a}" "aA-aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\L${a}\u${a}" "aA-aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\U${a}\Q${a}" "aA-aA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\U${a}\L${a}" "aA-aA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\U${a}\U${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\U${a}\E${a}" "aA-aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\U${a}\l${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\U${a}\u${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\E${a}\Q${a}" "aA-aA-AA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\E${a}\L${a}" "aA-aA-AA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\E${a}\U${a}" "aA-aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\E${a}\E${a}" "aA-aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\E${a}\l${a}" "aA-aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\E${a}\u${a}" "aA-aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\l${a}\Q${a}" "aA-aA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\l${a}\L${a}" "aA-aA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\l${a}\U${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\l${a}\E${a}" "aA-aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\l${a}\l${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\l${a}\u${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\u${a}\Q${a}" "aA-aA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\u${a}\L${a}" "aA-aA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\u${a}\U${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\u${a}\E${a}" "aA-aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\u${a}\l${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\U${a}\u${a}\u${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\Q${a}\Q${a}" "aA-aA-aA-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\Q${a}\L${a}" "aA-aA-aA-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\Q${a}\U${a}" "aA-aA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\Q${a}\E${a}" "aA-aA-aA-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\Q${a}\l${a}" "aA-aA-aA-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\Q${a}\u${a}" "aA-aA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\L${a}\Q${a}" "aA-aA-aA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\L${a}\L${a}" "aA-aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\L${a}\U${a}" "aA-aA-aA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\L${a}\E${a}" "aA-aA-aA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\L${a}\l${a}" "aA-aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\L${a}\u${a}" "aA-aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\U${a}\Q${a}" "aA-aA-aA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\U${a}\L${a}" "aA-aA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\U${a}\U${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\U${a}\E${a}" "aA-aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\U${a}\l${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\U${a}\u${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\E${a}\Q${a}" "aA-aA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\E${a}\L${a}" "aA-aA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\E${a}\U${a}" "aA-aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\E${a}\E${a}" "aA-aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\E${a}\l${a}" "aA-aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\E${a}\u${a}" "aA-aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\l${a}\Q${a}" "aA-aA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\l${a}\L${a}" "aA-aA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\l${a}\U${a}" "aA-aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\l${a}\E${a}" "aA-aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\l${a}\l${a}" "aA-aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\l${a}\u${a}" "aA-aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\u${a}\Q${a}" "aA-aA-aA-AA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\u${a}\L${a}" "aA-aA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\u${a}\U${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\u${a}\E${a}" "aA-aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\u${a}\l${a}" "aA-aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\E${a}\u${a}\u${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\Q${a}\Q${a}" "aA-aA-aA-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\Q${a}\L${a}" "aA-aA-aA-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\Q${a}\U${a}" "aA-aA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\Q${a}\E${a}" "aA-aA-aA-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\Q${a}\l${a}" "aA-aA-aA-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\Q${a}\u${a}" "aA-aA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\L${a}\Q${a}" "aA-aA-aA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\L${a}\L${a}" "aA-aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\L${a}\U${a}" "aA-aA-aA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\L${a}\E${a}" "aA-aA-aA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\L${a}\l${a}" "aA-aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\L${a}\u${a}" "aA-aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\U${a}\Q${a}" "aA-aA-aA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\U${a}\L${a}" "aA-aA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\U${a}\U${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\U${a}\E${a}" "aA-aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\U${a}\l${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\U${a}\u${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\E${a}\Q${a}" "aA-aA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\E${a}\L${a}" "aA-aA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\E${a}\U${a}" "aA-aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\E${a}\E${a}" "aA-aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\E${a}\l${a}" "aA-aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\E${a}\u${a}" "aA-aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\l${a}\Q${a}" "aA-aA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\l${a}\L${a}" "aA-aA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\l${a}\U${a}" "aA-aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\l${a}\E${a}" "aA-aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\l${a}\l${a}" "aA-aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\l${a}\u${a}" "aA-aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\u${a}\Q${a}" "aA-aA-aA-AA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\u${a}\L${a}" "aA-aA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\u${a}\U${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\u${a}\E${a}" "aA-aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\u${a}\l${a}" "aA-aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\l${a}\u${a}\u${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\Q${a}\Q${a}" "aA-aA-AA-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\Q${a}\L${a}" "aA-aA-AA-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\Q${a}\U${a}" "aA-aA-AA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\Q${a}\E${a}" "aA-aA-AA-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\Q${a}\l${a}" "aA-aA-AA-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\Q${a}\u${a}" "aA-aA-AA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\L${a}\Q${a}" "aA-aA-AA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\L${a}\L${a}" "aA-aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\L${a}\U${a}" "aA-aA-AA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\L${a}\E${a}" "aA-aA-AA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\L${a}\l${a}" "aA-aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\L${a}\u${a}" "aA-aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\U${a}\Q${a}" "aA-aA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\U${a}\L${a}" "aA-aA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\U${a}\U${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\U${a}\E${a}" "aA-aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\U${a}\l${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\U${a}\u${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\E${a}\Q${a}" "aA-aA-AA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\E${a}\L${a}" "aA-aA-AA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\E${a}\U${a}" "aA-aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\E${a}\E${a}" "aA-aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\E${a}\l${a}" "aA-aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\E${a}\u${a}" "aA-aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\l${a}\Q${a}" "aA-aA-AA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\l${a}\L${a}" "aA-aA-AA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\l${a}\U${a}" "aA-aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\l${a}\E${a}" "aA-aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\l${a}\l${a}" "aA-aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\l${a}\u${a}" "aA-aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\u${a}\Q${a}" "aA-aA-AA-AA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\u${a}\L${a}" "aA-aA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\u${a}\U${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\u${a}\E${a}" "aA-aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\u${a}\l${a}" "aA-aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\E${a}\u${a}\u${a}\u${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\Q${a}\Q${a}" "aA-aA-aA\\-aA\\\\\\-aA\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\Q${a}\L${a}" "aA-aA-aA\\-aA\\\\\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\Q${a}\U${a}" "aA-aA-aA\\-aA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\Q${a}\E${a}" "aA-aA-aA\\-aA\\\\\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\Q${a}\l${a}" "aA-aA-aA\\-aA\\\\\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\Q${a}\u${a}" "aA-aA-aA\\-aA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\L${a}\Q${a}" "aA-aA-aA\\-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\L${a}\L${a}" "aA-aA-aA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\L${a}\U${a}" "aA-aA-aA\\-aa\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\L${a}\E${a}" "aA-aA-aA\\-aa\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\L${a}\l${a}" "aA-aA-aA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\L${a}\u${a}" "aA-aA-aA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\U${a}\Q${a}" "aA-aA-aA\\-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\U${a}\L${a}" "aA-aA-aA\\-AA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\U${a}\U${a}" "aA-aA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\U${a}\E${a}" "aA-aA-aA\\-AA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\U${a}\l${a}" "aA-aA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\U${a}\u${a}" "aA-aA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\E${a}\Q${a}" "aA-aA-aA\\-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\E${a}\L${a}" "aA-aA-aA\\-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\E${a}\U${a}" "aA-aA-aA\\-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\E${a}\E${a}" "aA-aA-aA\\-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\E${a}\l${a}" "aA-aA-aA\\-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\E${a}\u${a}" "aA-aA-aA\\-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\l${a}\Q${a}" "aA-aA-aA\\-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\l${a}\L${a}" "aA-aA-aA\\-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\l${a}\U${a}" "aA-aA-aA\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\l${a}\E${a}" "aA-aA-aA\\-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\l${a}\l${a}" "aA-aA-aA\\-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\l${a}\u${a}" "aA-aA-aA\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\u${a}\Q${a}" "aA-aA-aA\\-AA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\u${a}\L${a}" "aA-aA-aA\\-AA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\u${a}\U${a}" "aA-aA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\u${a}\E${a}" "aA-aA-aA\\-AA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\u${a}\l${a}" "aA-aA-aA\\-AA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\Q${a}\u${a}\u${a}" "aA-aA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\Q${a}\Q${a}" "aA-aA-aa-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\Q${a}\L${a}" "aA-aA-aa-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\Q${a}\U${a}" "aA-aA-aa-aa\\-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\Q${a}\E${a}" "aA-aA-aa-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\Q${a}\l${a}" "aA-aA-aa-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\Q${a}\u${a}" "aA-aA-aa-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\L${a}\Q${a}" "aA-aA-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\L${a}\L${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\L${a}\U${a}" "aA-aA-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\L${a}\E${a}" "aA-aA-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\L${a}\l${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\L${a}\u${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\U${a}\Q${a}" "aA-aA-aa-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\U${a}\L${a}" "aA-aA-aa-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\U${a}\U${a}" "aA-aA-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\U${a}\E${a}" "aA-aA-aa-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\U${a}\l${a}" "aA-aA-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\U${a}\u${a}" "aA-aA-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\E${a}\Q${a}" "aA-aA-aa-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\E${a}\L${a}" "aA-aA-aa-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\E${a}\U${a}" "aA-aA-aa-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\E${a}\E${a}" "aA-aA-aa-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\E${a}\l${a}" "aA-aA-aa-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\E${a}\u${a}" "aA-aA-aa-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\l${a}\Q${a}" "aA-aA-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\l${a}\L${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\l${a}\U${a}" "aA-aA-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\l${a}\E${a}" "aA-aA-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\l${a}\l${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\l${a}\u${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\u${a}\Q${a}" "aA-aA-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\u${a}\L${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\u${a}\U${a}" "aA-aA-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\u${a}\E${a}" "aA-aA-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\u${a}\l${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\L${a}\u${a}\u${a}" "aA-aA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\Q${a}\Q${a}" "aA-aA-AA-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\Q${a}\L${a}" "aA-aA-AA-AA\\-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\Q${a}\U${a}" "aA-aA-AA-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\Q${a}\E${a}" "aA-aA-AA-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\Q${a}\l${a}" "aA-aA-AA-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\Q${a}\u${a}" "aA-aA-AA-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\L${a}\Q${a}" "aA-aA-AA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\L${a}\L${a}" "aA-aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\L${a}\U${a}" "aA-aA-AA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\L${a}\E${a}" "aA-aA-AA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\L${a}\l${a}" "aA-aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\L${a}\u${a}" "aA-aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\U${a}\Q${a}" "aA-aA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\U${a}\L${a}" "aA-aA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\U${a}\U${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\U${a}\E${a}" "aA-aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\U${a}\l${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\U${a}\u${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\E${a}\Q${a}" "aA-aA-AA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\E${a}\L${a}" "aA-aA-AA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\E${a}\U${a}" "aA-aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\E${a}\E${a}" "aA-aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\E${a}\l${a}" "aA-aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\E${a}\u${a}" "aA-aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\l${a}\Q${a}" "aA-aA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\l${a}\L${a}" "aA-aA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\l${a}\U${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\l${a}\E${a}" "aA-aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\l${a}\l${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\l${a}\u${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\u${a}\Q${a}" "aA-aA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\u${a}\L${a}" "aA-aA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\u${a}\U${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\u${a}\E${a}" "aA-aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\u${a}\l${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\U${a}\u${a}\u${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\Q${a}\Q${a}" "aA-aA-aA-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\Q${a}\L${a}" "aA-aA-aA-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\Q${a}\U${a}" "aA-aA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\Q${a}\E${a}" "aA-aA-aA-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\Q${a}\l${a}" "aA-aA-aA-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\Q${a}\u${a}" "aA-aA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\L${a}\Q${a}" "aA-aA-aA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\L${a}\L${a}" "aA-aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\L${a}\U${a}" "aA-aA-aA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\L${a}\E${a}" "aA-aA-aA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\L${a}\l${a}" "aA-aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\L${a}\u${a}" "aA-aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\U${a}\Q${a}" "aA-aA-aA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\U${a}\L${a}" "aA-aA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\U${a}\U${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\U${a}\E${a}" "aA-aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\U${a}\l${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\U${a}\u${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\E${a}\Q${a}" "aA-aA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\E${a}\L${a}" "aA-aA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\E${a}\U${a}" "aA-aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\E${a}\E${a}" "aA-aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\E${a}\l${a}" "aA-aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\E${a}\u${a}" "aA-aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\l${a}\Q${a}" "aA-aA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\l${a}\L${a}" "aA-aA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\l${a}\U${a}" "aA-aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\l${a}\E${a}" "aA-aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\l${a}\l${a}" "aA-aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\l${a}\u${a}" "aA-aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\u${a}\Q${a}" "aA-aA-aA-AA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\u${a}\L${a}" "aA-aA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\u${a}\U${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\u${a}\E${a}" "aA-aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\u${a}\l${a}" "aA-aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\E${a}\u${a}\u${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\Q${a}\Q${a}" "aA-aA-aA-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\Q${a}\L${a}" "aA-aA-aA-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\Q${a}\U${a}" "aA-aA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\Q${a}\E${a}" "aA-aA-aA-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\Q${a}\l${a}" "aA-aA-aA-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\Q${a}\u${a}" "aA-aA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\L${a}\Q${a}" "aA-aA-aA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\L${a}\L${a}" "aA-aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\L${a}\U${a}" "aA-aA-aA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\L${a}\E${a}" "aA-aA-aA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\L${a}\l${a}" "aA-aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\L${a}\u${a}" "aA-aA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\U${a}\Q${a}" "aA-aA-aA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\U${a}\L${a}" "aA-aA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\U${a}\U${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\U${a}\E${a}" "aA-aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\U${a}\l${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\U${a}\u${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\E${a}\Q${a}" "aA-aA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\E${a}\L${a}" "aA-aA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\E${a}\U${a}" "aA-aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\E${a}\E${a}" "aA-aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\E${a}\l${a}" "aA-aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\E${a}\u${a}" "aA-aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\l${a}\Q${a}" "aA-aA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\l${a}\L${a}" "aA-aA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\l${a}\U${a}" "aA-aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\l${a}\E${a}" "aA-aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\l${a}\l${a}" "aA-aA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\l${a}\u${a}" "aA-aA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\u${a}\Q${a}" "aA-aA-aA-AA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\u${a}\L${a}" "aA-aA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\u${a}\U${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\u${a}\E${a}" "aA-aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\u${a}\l${a}" "aA-aA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\l${a}\u${a}\u${a}" "aA-aA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\Q${a}\Q${a}" "aA-aA-AA-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\Q${a}\L${a}" "aA-aA-AA-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\Q${a}\U${a}" "aA-aA-AA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\Q${a}\E${a}" "aA-aA-AA-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\Q${a}\l${a}" "aA-aA-AA-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\Q${a}\u${a}" "aA-aA-AA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\L${a}\Q${a}" "aA-aA-AA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\L${a}\L${a}" "aA-aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\L${a}\U${a}" "aA-aA-AA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\L${a}\E${a}" "aA-aA-AA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\L${a}\l${a}" "aA-aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\L${a}\u${a}" "aA-aA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\U${a}\Q${a}" "aA-aA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\U${a}\L${a}" "aA-aA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\U${a}\U${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\U${a}\E${a}" "aA-aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\U${a}\l${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\U${a}\u${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\E${a}\Q${a}" "aA-aA-AA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\E${a}\L${a}" "aA-aA-AA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\E${a}\U${a}" "aA-aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\E${a}\E${a}" "aA-aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\E${a}\l${a}" "aA-aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\E${a}\u${a}" "aA-aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\l${a}\Q${a}" "aA-aA-AA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\l${a}\L${a}" "aA-aA-AA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\l${a}\U${a}" "aA-aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\l${a}\E${a}" "aA-aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\l${a}\l${a}" "aA-aA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\l${a}\u${a}" "aA-aA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\u${a}\Q${a}" "aA-aA-AA-AA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\u${a}\L${a}" "aA-aA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\u${a}\U${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\u${a}\E${a}" "aA-aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\u${a}\l${a}" "aA-aA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\l${a}\u${a}\u${a}\u${a}" "aA-aA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\Q${a}\Q${a}" "aA-AA-aA\\-aA\\\\\\-aA\\\\\\\\\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\Q${a}\L${a}" "aA-AA-aA\\-aA\\\\\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\Q${a}\U${a}" "aA-AA-aA\\-aA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\Q${a}\E${a}" "aA-AA-aA\\-aA\\\\\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\Q${a}\l${a}" "aA-AA-aA\\-aA\\\\\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\Q${a}\u${a}" "aA-AA-aA\\-aA\\\\\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\L${a}\Q${a}" "aA-AA-aA\\-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\L${a}\L${a}" "aA-AA-aA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\L${a}\U${a}" "aA-AA-aA\\-aa\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\L${a}\E${a}" "aA-AA-aA\\-aa\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\L${a}\l${a}" "aA-AA-aA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\L${a}\u${a}" "aA-AA-aA\\-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\U${a}\Q${a}" "aA-AA-aA\\-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\U${a}\L${a}" "aA-AA-aA\\-AA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\U${a}\U${a}" "aA-AA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\U${a}\E${a}" "aA-AA-aA\\-AA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\U${a}\l${a}" "aA-AA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\U${a}\u${a}" "aA-AA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\E${a}\Q${a}" "aA-AA-aA\\-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\E${a}\L${a}" "aA-AA-aA\\-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\E${a}\U${a}" "aA-AA-aA\\-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\E${a}\E${a}" "aA-AA-aA\\-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\E${a}\l${a}" "aA-AA-aA\\-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\E${a}\u${a}" "aA-AA-aA\\-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\l${a}\Q${a}" "aA-AA-aA\\-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\l${a}\L${a}" "aA-AA-aA\\-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\l${a}\U${a}" "aA-AA-aA\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\l${a}\E${a}" "aA-AA-aA\\-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\l${a}\l${a}" "aA-AA-aA\\-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\l${a}\u${a}" "aA-AA-aA\\-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\u${a}\Q${a}" "aA-AA-aA\\-AA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\u${a}\L${a}" "aA-AA-aA\\-AA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\u${a}\U${a}" "aA-AA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\u${a}\E${a}" "aA-AA-aA\\-AA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\u${a}\l${a}" "aA-AA-aA\\-AA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\Q${a}\u${a}\u${a}" "aA-AA-aA\\-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\Q${a}\Q${a}" "aA-AA-aa-aa\\-aa\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\Q${a}\L${a}" "aA-AA-aa-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\Q${a}\U${a}" "aA-AA-aa-aa\\-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\Q${a}\E${a}" "aA-AA-aa-aa\\-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\Q${a}\l${a}" "aA-AA-aa-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\Q${a}\u${a}" "aA-AA-aa-aa\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\L${a}\Q${a}" "aA-AA-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\L${a}\L${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\L${a}\U${a}" "aA-AA-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\L${a}\E${a}" "aA-AA-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\L${a}\l${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\L${a}\u${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\U${a}\Q${a}" "aA-AA-aa-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\U${a}\L${a}" "aA-AA-aa-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\U${a}\U${a}" "aA-AA-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\U${a}\E${a}" "aA-AA-aa-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\U${a}\l${a}" "aA-AA-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\U${a}\u${a}" "aA-AA-aa-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\E${a}\Q${a}" "aA-AA-aa-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\E${a}\L${a}" "aA-AA-aa-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\E${a}\U${a}" "aA-AA-aa-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\E${a}\E${a}" "aA-AA-aa-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\E${a}\l${a}" "aA-AA-aa-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\E${a}\u${a}" "aA-AA-aa-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\l${a}\Q${a}" "aA-AA-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\l${a}\L${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\l${a}\U${a}" "aA-AA-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\l${a}\E${a}" "aA-AA-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\l${a}\l${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\l${a}\u${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\u${a}\Q${a}" "aA-AA-aa-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\u${a}\L${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\u${a}\U${a}" "aA-AA-aa-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\u${a}\E${a}" "aA-AA-aa-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\u${a}\l${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\L${a}\u${a}\u${a}" "aA-AA-aa-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\Q${a}\Q${a}" "aA-AA-AA-AA\\-AA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\Q${a}\L${a}" "aA-AA-AA-AA\\-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\Q${a}\U${a}" "aA-AA-AA-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\Q${a}\E${a}" "aA-AA-AA-AA\\-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\Q${a}\l${a}" "aA-AA-AA-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\Q${a}\u${a}" "aA-AA-AA-AA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\L${a}\Q${a}" "aA-AA-AA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\L${a}\L${a}" "aA-AA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\L${a}\U${a}" "aA-AA-AA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\L${a}\E${a}" "aA-AA-AA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\L${a}\l${a}" "aA-AA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\L${a}\u${a}" "aA-AA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\U${a}\Q${a}" "aA-AA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\U${a}\L${a}" "aA-AA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\U${a}\U${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\U${a}\E${a}" "aA-AA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\U${a}\l${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\U${a}\u${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\E${a}\Q${a}" "aA-AA-AA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\E${a}\L${a}" "aA-AA-AA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\E${a}\U${a}" "aA-AA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\E${a}\E${a}" "aA-AA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\E${a}\l${a}" "aA-AA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\E${a}\u${a}" "aA-AA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\l${a}\Q${a}" "aA-AA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\l${a}\L${a}" "aA-AA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\l${a}\U${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\l${a}\E${a}" "aA-AA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\l${a}\l${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\l${a}\u${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\u${a}\Q${a}" "aA-AA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\u${a}\L${a}" "aA-AA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\u${a}\U${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\u${a}\E${a}" "aA-AA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\u${a}\l${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\U${a}\u${a}\u${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\Q${a}\Q${a}" "aA-AA-aA-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\Q${a}\L${a}" "aA-AA-aA-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\Q${a}\U${a}" "aA-AA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\Q${a}\E${a}" "aA-AA-aA-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\Q${a}\l${a}" "aA-AA-aA-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\Q${a}\u${a}" "aA-AA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\L${a}\Q${a}" "aA-AA-aA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\L${a}\L${a}" "aA-AA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\L${a}\U${a}" "aA-AA-aA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\L${a}\E${a}" "aA-AA-aA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\L${a}\l${a}" "aA-AA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\L${a}\u${a}" "aA-AA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\U${a}\Q${a}" "aA-AA-aA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\U${a}\L${a}" "aA-AA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\U${a}\U${a}" "aA-AA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\U${a}\E${a}" "aA-AA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\U${a}\l${a}" "aA-AA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\U${a}\u${a}" "aA-AA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\E${a}\Q${a}" "aA-AA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\E${a}\L${a}" "aA-AA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\E${a}\U${a}" "aA-AA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\E${a}\E${a}" "aA-AA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\E${a}\l${a}" "aA-AA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\E${a}\u${a}" "aA-AA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\l${a}\Q${a}" "aA-AA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\l${a}\L${a}" "aA-AA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\l${a}\U${a}" "aA-AA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\l${a}\E${a}" "aA-AA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\l${a}\l${a}" "aA-AA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\l${a}\u${a}" "aA-AA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\u${a}\Q${a}" "aA-AA-aA-AA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\u${a}\L${a}" "aA-AA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\u${a}\U${a}" "aA-AA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\u${a}\E${a}" "aA-AA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\u${a}\l${a}" "aA-AA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\E${a}\u${a}\u${a}" "aA-AA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\Q${a}\Q${a}" "aA-AA-aA-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\Q${a}\L${a}" "aA-AA-aA-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\Q${a}\U${a}" "aA-AA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\Q${a}\E${a}" "aA-AA-aA-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\Q${a}\l${a}" "aA-AA-aA-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\Q${a}\u${a}" "aA-AA-aA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\L${a}\Q${a}" "aA-AA-aA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\L${a}\L${a}" "aA-AA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\L${a}\U${a}" "aA-AA-aA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\L${a}\E${a}" "aA-AA-aA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\L${a}\l${a}" "aA-AA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\L${a}\u${a}" "aA-AA-aA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\U${a}\Q${a}" "aA-AA-aA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\U${a}\L${a}" "aA-AA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\U${a}\U${a}" "aA-AA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\U${a}\E${a}" "aA-AA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\U${a}\l${a}" "aA-AA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\U${a}\u${a}" "aA-AA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\E${a}\Q${a}" "aA-AA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\E${a}\L${a}" "aA-AA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\E${a}\U${a}" "aA-AA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\E${a}\E${a}" "aA-AA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\E${a}\l${a}" "aA-AA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\E${a}\u${a}" "aA-AA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\l${a}\Q${a}" "aA-AA-aA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\l${a}\L${a}" "aA-AA-aA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\l${a}\U${a}" "aA-AA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\l${a}\E${a}" "aA-AA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\l${a}\l${a}" "aA-AA-aA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\l${a}\u${a}" "aA-AA-aA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\u${a}\Q${a}" "aA-AA-aA-AA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\u${a}\L${a}" "aA-AA-aA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\u${a}\U${a}" "aA-AA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\u${a}\E${a}" "aA-AA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\u${a}\l${a}" "aA-AA-aA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\l${a}\u${a}\u${a}" "aA-AA-aA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\Q${a}\Q${a}" "aA-AA-AA-aA\\-aA\\\\\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\Q${a}\L${a}" "aA-AA-AA-aA\\-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\Q${a}\U${a}" "aA-AA-AA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\Q${a}\E${a}" "aA-AA-AA-aA\\-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\Q${a}\l${a}" "aA-AA-AA-aA\\-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\Q${a}\u${a}" "aA-AA-AA-aA\\-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\L${a}\Q${a}" "aA-AA-AA-aa-aa\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\L${a}\L${a}" "aA-AA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\L${a}\U${a}" "aA-AA-AA-aa-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\L${a}\E${a}" "aA-AA-AA-aa-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\L${a}\l${a}" "aA-AA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\L${a}\u${a}" "aA-AA-AA-aa-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\U${a}\Q${a}" "aA-AA-AA-AA-AA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\U${a}\L${a}" "aA-AA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\U${a}\U${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\U${a}\E${a}" "aA-AA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\U${a}\l${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\U${a}\u${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\E${a}\Q${a}" "aA-AA-AA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\E${a}\L${a}" "aA-AA-AA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\E${a}\U${a}" "aA-AA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\E${a}\E${a}" "aA-AA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\E${a}\l${a}" "aA-AA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\E${a}\u${a}" "aA-AA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\l${a}\Q${a}" "aA-AA-AA-aA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\l${a}\L${a}" "aA-AA-AA-aA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\l${a}\U${a}" "aA-AA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\l${a}\E${a}" "aA-AA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\l${a}\l${a}" "aA-AA-AA-aA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\l${a}\u${a}" "aA-AA-AA-aA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\u${a}\Q${a}" "aA-AA-AA-AA-aA\\-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\u${a}\L${a}" "aA-AA-AA-AA-aa-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\u${a}\U${a}" "aA-AA-AA-AA-AA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\u${a}\E${a}" "aA-AA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\u${a}\l${a}" "aA-AA-AA-AA-aA-")) (let ((a "aA-")) (string= #?"${a}\u${a}\u${a}\u${a}\u${a}" "aA-AA-AA-AA-AA-")) cl-interpol-0.2.6/test/simple0000644000004100000410000001152712757757171016223 0ustar www-datawww-data;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-INTERPOL-TEST; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-interpol/test/simple,v 1.4 2008/07/23 15:13:13 edi Exp $ ;;; some simple tests for CL-INTERPOL - entered manually and to be ;;; read in the CL-INTERPOL-TEST package; all forms except SETQ forms ;;; are expected to return a true value on success when EVALuated (string= #?"abc" "abc") (string= #?'abc' "abc") (string= #?|abc| "abc") (string= #?/abc/ "abc") (string= #?#abc# "abc") (string= #?{abc} "abc") (string= #?(abc) "abc") (string= #? "abc") (string= #?[abc] "abc") (string= #?"abc\"" "abc\"") (string= #?"abc\\" "abc\\") (string= #?[a[b]c] "a[b]c") (string= #?[a[[b]]c] "a[[b]]c") (string= #?[a[[][]]b] "a[[][]]b") (string= #?"\t\n\r\f\b\a\e" (coerce (list #\Tab #\Newline #\Return #\Page #\Backspace (code-char 7) (code-char 27)) 'string)) (string= #?"\033\x1b\c[\x{1b}" (make-string 4 :initial-element (code-char 27))) (string= #?"\x" (string (code-char 0))) (string= #?"\x001" (format nil "~A1" (code-char 0))) (string= #?"\0001" (format nil "~A1" (code-char 0))) (char= (char #?"\x20" 0) #\Space) (zerop (char-code (char #?"\x" 0))) (zerop (char-code (char #?"\x{}" 0))) (string= (unicode-name (char #?"\x{2323}" 0)) "SMILE") (string= #?"Only\x202 digits!" "Only 2 digits!") ;; might in theory fail on some Lisps - see 13.1.7 (string-equal (char-name (char #?"\cH" 0)) "Backspace") (char= (char #?"\cj" 0) #\Newline) ;; two spaces (string= #?"\40\040" " " ) ;; note that \377 and \777 yield the same result (equal (map 'list #'char-code #?"\0\377\777") '(0 255 255)) (string= #?"Only\0403 digits!" "Only 3 digits!") (equal (map 'list #'identity #?"\9") (list #\9)) (string= #?"\N{LATIN CAPITAL LETTER A WITH DIAERESIS}" "Ä") (string= #?"\N{latin capital letter a with diaeresis}" "Ä") (string= #?{\N{LATIN CAPITAL LETTER A WITH DIAERESIS}} "Ä") (setq *try-abbreviations-p* t) (string= #?"\N{Latin:A with Diaeresis}" "Ä") (string= #?"\N{Latin:a with diaeresis}" "ä") (setq *scripts-to-try* "Latin") (string= #?"\N{A with Diaeresis}" "Ä") (string= #?"\N{a with diaeresis}" "ä") (setq *try-abbreviations-p* nil) (setq *try-unicode1-names-p* t) (string= #?"\N{LINEFEED (LF)}" #\Linefeed) ;; special CL-INTERPOL aliases (string= #?"\N{LINEFEED}" #\Linefeed) (string= #?"\N{CR}" #\Return) (setq *try-hex-notation-p* t) (= (char-code (char #?"\N{U+0042}" 0)) #x42) (setq *try-lisp-names-p* t) (char= (char #?"\N{Newline}" 0) #\Newline) ;; ignored newline (string= #?"abc\ def" "abcdef") (string= #?/\1/ "\\1") (string= #?r"\1" "\\1") (string= #?r"\k" "\\k") (string= #?r"\p{LC}" "\\p{LC}") (string= #?x/abc / "abc") (string= #?x/abc / "abc") (string= #?rx"abc " "abc") (string= #?/[\1]\1/ (format nil "[~A]\\1" (code-char 1))) (string= #?/[(?#foo)](?#foo)/ "[(?#foo)]") (string= #?/a#bc/ "a#bc") (string= #?x/a#bc/ "a") (string= #?x/\d\A[\d\A]/ "\\d\\A[\\dA]") (string= #?"\Q-" "\\-") (string= #?"\Q-\E-" "\\--") (string= #?"\ufoo" "Foo") (string= #?"\Ufoo" "FOO") (string= #?"\Ufoo\Ebar" "FOObar") (string= #?"\Ufoo\LBAR" "FOObar") (let ((a "foo")) (and (string= #?"$" "$") (string= #?"@ @" "@ @") (string= #?"${a}bar" "foobar") (string= #?/${a}bar/ "foobar") (string= #?"$[a]bar" "foobar") (string= #?"$(a)bar" "foobar") (string= #?"$bar" "foobar") (string= #?/$bar/ "$bar") (string= #?"$a @a " "$a @a "))) (let ((a (list 1 2 3))) (and (string= #?"${a}" "(1 2 3)") (string= #?"@{a}" "1 2 3") (let ((*list-delimiter* "")) (string= #?"@{a}" "123")))) (let* ((a "foo") (b #\Space) (c "bar") (d (list a b c)) (x 40)) (and (string= #?"$ @" "$ @") (string= #?"$(a)" "foo") (string= #?"$$[b]" "foo ") (string= #?"\U${a}\E \u${a}" "FOO Foo") (string= (let ((*list-delimiter* #\*)) #?"@{d}") "foo* *bar") (string= (let ((*list-delimiter* "")) #?"@{d}") "foo bar") (string= #?"The result is ${(let ((y 2)) (+ x y))}" "The result is 42") (string= #?"${#?'${a} ${c}'} ${x}" "foo bar 40"))) (setq *optional-delimiters-p* t) (string= (let ((% 23)) #?"$%a%b%") "23a%b%") (string= (let ((%a 23)) #?"$%a%b%") "23%b%") (string= (let ((%a% 23)) #?"$%a%b%") "23b%") (string= (let ((%a%b 23)) #?"$%a%b%") "23%") (string= (let ((%a%b% 23)) #?"$%a%b%") "23") (setq *interpolate-format-directives* nil) (string= (let ((a "abc")) (declare (ignorable a)) #?"~S(a)") "~S(a)") (setq *interpolate-format-directives* t) (string= (let ((a "abc")) #?"~S(a)") "\"abc\"") (string= (let ((a "abc")) #?"~a(a)") "abc") (string= (let ((number 41)) #?"~8,'0B((incf number) number)") "00101010") (string= (let ((a "abc")) #?" \~~a(a)") " ~abc") (string= #?" ~v~(4) " " ~~~~ ") cl-interpol-0.2.6/test/tests.lisp0000644000004100000410000001427712757757171017047 0ustar www-datawww-data;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-INTERPOL-TEST; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-interpol/test/tests.lisp,v 1.4 2008/07/23 16:10:13 edi Exp $ ;;; Copyright (c) 2008, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions ;;; are met: ;;; * Redistributions of source code must retain the above copyright ;;; notice, this list of conditions and the following disclaimer. ;;; * Redistributions in binary form must reproduce the above ;;; copyright notice, this list of conditions and the following ;;; disclaimer in the documentation and/or other materials ;;; provided with the distribution. ;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED ;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED ;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY ;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE ;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS ;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, ;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (in-package :cl-interpol-test) (defvar *this-file* (load-time-value (or #.*compile-file-pathname* *load-pathname*)) "The location of this source file. Needed to find the data files.") (defmacro do-tests ((name &optional show-progress-p) &body body) "Helper macro which repeatedly executes BODY until the code in body calls the function DONE. It is assumed that each invocation of BODY will be the execution of one test which returns NIL in case of success and a list of strings describing errors otherwise. The macro prints a simple progress indicator \(one dots for ten tests) to *STANDARD-OUTPUT* unless SHOW-PROGRESS-P is NIL and returns a true value iff all tests succeeded. Errors in BODY are caught and reported \(and counted as failures)." `(let ((successp t) (testcount 1)) (block test-block (flet ((done () (return-from test-block successp))) (format t "~&Test: ~A~%" ,name) (loop (when (and ,show-progress-p (zerop (mod testcount 10))) (format t ".") (when (zerop (mod testcount 100)) (terpri)) (force-output)) (let ((errors (handler-case (progn ,@body) (error (msg) (list (format nil "~&got an unexpected error: ~A" msg)))))) (setq successp (and successp (null errors))) (when errors (format t "~&~4@A:~{~& ~A~}~%" testcount errors)) (incf testcount))))) successp)) (defun simple-tests (&key (file-name (make-pathname :name "simple" :type nil :version nil :defaults *this-file*)) (external-format '(:latin-1 :eol-style :lf)) verbose) "Loops through all the forms in the file FILE-NAME and executes each of them using EVAL. The CL-INTERPOL syntax is enabled when the forms are read. It is assumed that each FORM specifies a test which returns a true value iff it succeeds. Prints each test form to *STANDARD-OUTPUT* if VERBOSE is true and shows a simple progress indicator otherwise. EXTERNAL-FORMAT is the FLEXI-STREAMS external format which is used to read the file. Returns a true value iff all tests succeeded. \(SETQ ...) forms are treated special in that they're just EVALuated but not counted as tests. The global special variables exported by CL-INTERPOL \(and some from CL-UNICODE as well) are rebound during the tests so that they can be safely set in the test files." (enable-interpol-syntax) (unwind-protect (with-open-file (binary-stream file-name :element-type 'flex:octet) (let* ((stream (flex:make-flexi-stream binary-stream :external-format external-format)) (*package* (find-package :cl-interpol-test)) (*list-delimiter* *list-delimiter*) (*outer-delimiters* *outer-delimiters*) (*inner-delimiters* *inner-delimiters*) (*optional-delimiters-p* *optional-delimiters-p*) (*scripts-to-try* *scripts-to-try*) (*try-abbreviations-p* *try-abbreviations-p*) (*try-hex-notation-p* *try-hex-notation-p*) (*try-lisp-names-p* *try-lisp-names-p*) (*try-unicode1-names-p* *try-unicode1-names-p*)) (do-tests ((format nil "Simple tests from file ~S" (file-namestring file-name)) (not verbose)) (let* ((form (or (read stream nil) (done))) (setqp (eq (first form) 'setq))) (when (and verbose (not setqp)) (format t "~&~S" form)) (cond (setqp (eval form) nil) ((eval form) nil) (t (list (format nil "~S returned NIL" form)))))))) (disable-interpol-syntax))) (defun run-all-tests (&key verbose) "Runs all tests for CL-INTERPOL and returns a true value iff all tests succeeded. VERBOSE is interpreted by the individual test suites above." (let ((successp t)) (macrolet ((run-test-suite (&body body) `(unless (progn ,@body) (setq successp nil)))) ;; run the automatically generated Perl tests (run-test-suite (simple-tests :file-name (make-pathname :name "perltests" :type nil :version nil :defaults *this-file*) :verbose verbose)) (run-test-suite (simple-tests :verbose verbose))) (format t "~2&~:[Some tests failed~;All tests passed~]." successp) successp)) cl-interpol-0.2.6/read.lisp0000644000004100000410000011660712757757171015641 0ustar www-datawww-data;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-INTERPOL; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-interpol/read.lisp,v 1.31 2008/07/23 15:13:08 edi Exp $ ;;; Copyright (c) 2003-2008, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions ;;; are met: ;;; * Redistributions of source code must retain the above copyright ;;; notice, this list of conditions and the following disclaimer. ;;; * Redistributions in binary form must reproduce the above ;;; copyright notice, this list of conditions and the following ;;; disclaimer in the documentation and/or other materials ;;; provided with the distribution. ;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED ;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED ;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY ;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE ;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS ;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, ;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (in-package :cl-interpol) (defun read-while (predicate &key max) "Reads characters from *STREAM* while PREDICATE returns a true value for each character. Returns at most MAX characters if MAX is true." (when (eql max 0) (return-from read-while "")) (let ((collector (make-collector))) (loop for count of-type fixnum from 1 for c = (peek-char*) while (and (or (not max) (<= count max)) c (funcall predicate c)) do (vector-push-extend (read-char*) collector) finally (return collector)))) (declaim (inline get-number)) (defun get-number (&key (radix 10) max) "Reads and consumes the number *STREAM* is currently looking at and returns it. Returns NIL if no number could be identified. RADIX is used as in PARSE-INTEGER. If MAX is not NIL we'll read at most the next MAX characters." (parse-integer (read-while (lambda (c) (digit-char-p c radix)) :max max) :radix radix :junk-allowed t)) (defun resolve-unicode-name (name) "Tries to return a character which was encoded as \\N." (or (character-named name) (gethash (canonicalize-name name) *unicode-aliases*))) (defun get-char-from-unicode-name () "Parses and returns a named character after \"\\N\" has already been read. This function reads from *STREAM*." (let ((next-char (read-char*))) (unless (char= next-char #\{) (signal-reader-error "Expected { after \\N")) (let ((name (read-while (lambda (c) (and (char/= c #\}) (char/= c *term-char*)))))) (let ((next-char (read-char*))) (unless (char= next-char #\}) (signal-reader-error "Expected } after Unicode character name"))) (or (resolve-unicode-name name) (signal-reader-error "Could not find character with name '~A'" name))))) (defun unescape-char (regex-mode) "Convert the characters(s) on *STREAM* following a backslash into a character which is returned. This function is to be called when the backslash has already been consumed." (let ((chr (read-char*))) ;; certain escape sequences are left as is when in regex mode (when (or (and (eq regex-mode :in-char-class) (find chr "pPwWsSdD" :test #'char=)) (and (eq regex-mode t) (find chr "kpPwWsSdDbBAZz" :test #'char=))) (return-from unescape-char (concatenate 'string "\\" (string chr)))) (let ((result (case chr ((#\N) ;; named Unicode chars (get-char-from-unicode-name)) ((#\c) ;; \cx means control-x (when (char= (peek-char*) *term-char*) (signal-reader-error "String ended after \\c")) (code-char (logxor #x40 (char-code (char-upcase (read-char*)))))) ((#\x) (cond ((char= (peek-char*) #\{) ;; "wide" hex char, i.e. hexadecimal number is ;; enclosed in curly brackets (read-char*) (prog1 (let ((code (or (get-number :radix 16) ;; allow for empty string 0))) (or (and (< code char-code-limit) (code-char code)) (signal-reader-error "No character for char-code #x~X" code))) (unless (char= (peek-char*) #\}) (signal-reader-error "Expected } after hex code")) (read-char*))) (t ;; \x should be followed by a hexadecimal char ;; code, two digits or less; note that it is ;; OK if \x is followed by zero digits (make-char-from-code (get-number :radix 16 :max 2))))) ((#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9) (cond ((and (eq regex-mode t) (char/= chr #\0)) ;; leave as is if we're in regex mode (and not ;; within in a character class) (concatenate 'string "\\" (string chr))) ((or (char= chr #\8) (char= chr #\9)) ;; outside of regex mode "\8" is "8" (in regex ;; mode it is read like "\08"...) chr) (t (unread-char chr *stream*) ;; now \x should be followed by an octal char ;; code, three digits or less (make-char-from-code (get-number :radix 8 :max 3))))) ((#\Newline) (read-while (lambda (c) (or (char= c #\Space) (not (or (graphic-char-p c) (char= c #\Newline)))))) "") ;; the following five character names are ;; 'semi-standard' according to the CLHS but I'm not ;; aware of any implementation that doesn't implement ;; them ((#\t) #\Tab) ((#\n) #\Newline) ((#\r) #\Return) ((#\f) #\Page) ((#\b) #\Backspace) ((#\a) (code-char 7)) ; ASCII bell ((#\e) (code-char 27)) ; ASCII escape (otherwise ;; all other characters aren't affected by a backslash chr)))) (cond ((and (characterp result) ;; some characters must be 'protected' from CL-PPCRE (or (and (eq regex-mode :in-char-class) (find result "\\^[]-" :test #'char=)) (and (eq regex-mode t) (find result "\\^[]-.$|()*+?" :test #'char=)))) (concatenate 'string "\\" (string result))) (t result))))) (declaim (inline normal-name-char-p) (inline never-name-char-p)) (defun normal-name-char-p (c) (and c (or (alphanumericp c) (member c '(#\_ #\- #\+ #\*))))) (defun never-name-char-p (c) (or (not c) (get-macro-character c) (member c '(#\$ #\@)))) (defvar quell-warnings-form #+sbcl '(declare (optimize (sb-ext:inhibit-warnings 3))) #-sbcl nil "A declaration form to quiet warnings about unbound variables within a lexical environment.") (defun read-longest-name () (coerce (loop until (never-name-char-p (peek-char nil *stream* nil nil t)) collect (read-char*)) 'string)) (defun read-optional-delimited () "Read the stuff following an optional delimiter, returning a form that tries to deal correctly with lexical variables." (flet ((try-pos (name i form) (let ((ostr (gensym))) `(handler-case (with-output-to-string (,ostr) (princ ,(read-from-string (subseq name 0 i)) ,ostr) (princ ,(subseq name i) ,ostr) ,ostr) (unbound-variable () ,form))))) (loop with name = (read-longest-name) with form = `(error ,(format nil "Interpolation error in ~s~%" name)) with ostr = (gensym) for i = (position-if-not #'normal-name-char-p name) then (position-if-not #'normal-name-char-p name :start (1+ i)) unless i return `(let () ,quell-warnings-form (handler-case (with-output-to-string (,ostr) (princ ,(read-from-string name) ,ostr) ,ostr) (unbound-variable () ,form))) if (> i 0) do (setq form (try-pos name i form)) if (< i (length name)) do (setq form (try-pos name (1+ i) form))))) (declaim (inline read-form)) (defun read-form (&key (recursive-p t)) "Reads and returns one or more Lisp forms from *STREAM* if the character we're looking at is a valid inner delimiter. Otherwise returns NIL." (let* ((start-delimiter (peek-char*)) (end-delimiter (get-end-delimiter start-delimiter *inner-delimiters*))) (cond ((null end-delimiter) (if *optional-delimiters-p* (read-optional-delimited) nil)) (t `(progn ,@(progn (read-char*) (let ((*readtable* (copy-readtable*))) ;; temporarily change the readtable (set-syntax-from-char end-delimiter #\)) (read-delimited-list end-delimiter *stream* recursive-p)))))))) (defun read-format-directive () "Reads and returns a format directive (as a string) along with one or more lisp forms (as per read-form)." (let ((format-directive (make-collector))) (labels ((read-quoted-char () (if (char= #\' (peek-char*)) (progn (vector-push-extend (read-char*) format-directive) (vector-push-extend (read-char*) format-directive) t) nil)) (read-integer () (if (member (peek-char*) '(#\- #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)) (progn (vector-push-extend (read-char*) format-directive) (loop while (member (peek-char*) '(#\- #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)) do (vector-push-extend (read-char*) format-directive)) t) nil)) (read-modifier () (loop repeat 2 with found = nil when (member (peek-char*) '(#\@ #\:)) do (vector-push-extend (read-char*) format-directive) and do (setf found t) finally (return found))) (read-comma () (if (char= #\, (peek-char*)) (progn (vector-push-extend (read-char*) format-directive) t) nil)) (read-v () (if (char-equal #\v (peek-char*)) (progn (vector-push-extend (read-char*) format-directive) t) nil))) (loop while (or (read-quoted-char) (read-integer) (read-v) (read-comma)) finally (read-modifier) finally (vector-push-extend (read-char*) format-directive)) format-directive))) (defun interpol-reader (*stream* char arg &key (recursive-p t)) "The actual reader function for the 'sub-character' #\?. This function can be used directly outside of a read table by passing `recursive-p` as NIL. " (declare (ignore arg char)) (let ((*start-char* (read-char*)) ;; REGEX-MODE is true if we're in regular expression mode; it ;; can have one of the values :START-OF-CHAR-CLASS, ;; :START-OF-NEGATED-CHAR-CLASS, or :IN-CHAR-CLASS if we're ;; inside of a character class or just about to start one - ;; otherwise the value is T regex-mode ;; EXTENDED-MODE is true if we're in extended regular ;; expression mode extended-mode) (when (char-equal *start-char* #\r) (setq regex-mode t *start-char* (read-char*))) (when (char-equal *start-char* #\x) (setq extended-mode t *start-char* (read-char*))) (when (and (not regex-mode) (find *start-char* *regex-delimiters* :test #'char=)) (setq regex-mode t)) (unless regex-mode (setq extended-mode nil)) (let ((*term-char* (get-end-delimiter *start-char* *outer-delimiters* :errorp t)) (*pair-level* 0) (*inner-delimiters* (if regex-mode (intersection *inner-delimiters* '((#\{ . #\})) :test #'equal) *inner-delimiters*)) *saw-backslash* *readtable-copy*) (prog1 (inner-reader regex-mode extended-mode nil nil :recursive-p recursive-p) ;; consume the closing outer delimiter (read-char*))))) (defun inner-reader (regex-mode extended-mode quote-mode case-mode &key (recursive-p t)) "Helper function for INTERPOL-READER which does all the work. May call itself recursively." ;; REGEX-MODE and EXTENDED-MODE as described above; QUOTE-MODE is ;; true if we're inside a \Q scope; CASE-MODE is true if we're ;; inside a \L or \U scope (let* ((string-stream (gensym)) ;; the string stream ;; we use for WITH-OUTPUT-TO-STRING ;; if this is not a constant string (collector (make-collector)) ;; we collect ;; characters into this ;; extentable string result ;; a list of all characters, strings, and forms ;; so far (in reverse order while withing the loop) handle-next-char) (block main-loop ;; we need this name so we can leave the LOOP below (flet ((compute-result () ;; local function used to leave the loop and compute ;; the final RESULT (setq result (nreverse (if (plusp (length collector)) ;; add COLLECTOR if it's not empty (cons collector result) result))) (return-from main-loop)) (parse-with-case-mode (action-name) ;; local function used to read while in a \U or \L scope (let ((string-to-modify ;; read until \E, \L, \U, or end of string (inner-reader regex-mode extended-mode regex-mode t))) (if (stringp string-to-modify) ;; modify directly if constant string (funcall action-name string-to-modify) ;; otherwise create a form to do that at run time `(write-string (,action-name ,string-to-modify) ,string-stream))))) (loop (let ((next-char (read-char*))) (when regex-mode ;; when in regex mode make sure where we are with ;; respect to character classes (setq regex-mode (case next-char ((#\[) (ecase regex-mode ((:start-of-char-class :start-of-negated-char-class :in-char-class) :in-char-class) ((t) :start-of-char-class))) ((#\^) (ecase regex-mode ((:start-of-char-class) :start-of-negated-char-class) ((:start-of-negated-char-class :in-char-class) :in-char-class) ((t) t))) ((#\]) (ecase regex-mode ((:start-of-char-class :start-of-negated-char-class) :in-char-class) ((:in-char-class t) t))) (otherwise (ecase regex-mode ((:start-of-char-class :start-of-negated-char-class :in-char-class) :in-char-class) ((t) t)))))) (when (and (char= next-char *start-char*) (char/= *start-char* *term-char*)) ;; if we see, say, #\( and our closing delimiter is #\) ;; we increment *PAIR-LEVEL* so the parentheses can next ;; without ending the string (incf *pair-level*)) (let ((interpolation (cond ((and (char= next-char *term-char*) (plusp *pair-level*)) ;; although this is the outer closing ;; delimiter we don't stop parsing because ;; we're insided a nested pair of ;; bracketing characters (decf *pair-level*) *term-char*) ((char= next-char *term-char*) ;; now we really stop - but we don't ;; consume the closing delimiter because ;; we may need it again to end another ;; scope (unread-char next-char *stream*) (compute-result)) (t (case next-char ((#\L) (cond ((not *saw-backslash*) ;; a normal #\L, no 'pending' ;; backslash #\L) (case-mode ;; a backslashed #\L which ;; we've seen before but we ;; still have to close at ;; least one \Q/\L/\E scope (unread-char #\L *stream*) (compute-result)) (t ;; all scopes are closed, now ;; read and downcase 'till \E ;; or somesuch (setq *saw-backslash* nil) (parse-with-case-mode 'string-downcase)))) ((#\U) ;; see comments for #\L above (cond ((not *saw-backslash*) #\U) (case-mode (unread-char #\U *stream*) (compute-result)) (t (setq *saw-backslash* nil) (parse-with-case-mode 'string-upcase)))) ((#\Space #\Tab #\Linefeed #\Return #\Page) (cond ((and extended-mode (not (eq regex-mode :in-char-class))) ;; in extended mode (if not in ;; a character class) ;; whitespace is removed "") (t next-char))) ((#\() (cond ((and (eq regex-mode t) (null quote-mode) (char/= *term-char* #\?) (eql (peek-char*) #\?)) ;; this could start an ;; embedded comment in regex ;; mode (and we're /not/ ;; inside of a \Q scope or a ;; character class) (read-char*) (cond ((and (char/= *term-char* #\#) (eql (peek-char*) #\#)) ;; yes, it's a ;; comment, so consume ;; characters 'till #\) (read-while (lambda (char) (and (char/= char #\)) (char/= char *term-char*)))) (cond ((char= (read-char*) *term-char*) (signal-reader-error "Incomplete regex comment starting with '(#'")) ((not (digit-char-p (peek-char*) 16)) "") ;; special case ;; if next ;; character ;; could ;; potentially ;; continue an ;; octal or ;; hexadecimal ;; representation (t "(?:)"))) ;; no, wasn't a comment (t "(?"))) (t #\())) ((#\#) (cond ((and (eq regex-mode t) extended-mode (null quote-mode)) ;; we're in extended regex ;; mode and not inside of a \Q ;; scope or a character class, ;; so this is a comment and we ;; consume it 'till #\Newline ;; or *TERM-CHAR* (read-while (lambda (char) (and (char/= char #\Newline) (char/= char *term-char*)))) (when (char= (peek-char*) #\Newline) (read-char*)) (cond ((not (digit-char-p (peek-char*) 16)) "") ;; special case, see above (t "(?:)"))) (t #\#))) ((#\\) (case (peek-char*) ((#\Q) ;; \Q - start a new quote scope (read-char*) (let ((string-to-quote (inner-reader regex-mode extended-mode t case-mode))) (if (stringp string-to-quote) ;; if we got a constant string ;; we modify it directly (quote-meta-chars string-to-quote) ;; otherwise we expand into code `(write-string (quote-meta-chars ,string-to-quote) ,string-stream)))) ((#\L) ;; \L - start a new case-modifying ;; scope (cond (case-mode ;; if we're already in ;; this mode we have to ;; end all previous scopes ;; first - we set ;; *SAW-BACKSLASH* to T so ;; the #\L is read until ;; all scopes are finished (setq *saw-backslash* t) (compute-result)) (t ;; all scopes are closed, now ;; read and downcase 'till \E ;; or somesuch (setq *saw-backslash* nil) (read-char*) (parse-with-case-mode 'string-downcase)))) ((#\U) ;; see comments for #\L above (cond (case-mode (setq *saw-backslash* t) (compute-result)) (t (setq *saw-backslash* nil) (read-char*) (parse-with-case-mode 'string-upcase)))) ((#\E) ;; \E - ends exactly one scope (read-char*) (if (or quote-mode case-mode) (compute-result) "")) ((#\l) ;; \l - downcase next character (read-char*) ;; remember that we have to do this (setq handle-next-char :downcase) nil) ((#\u) ;; \u - upcase next character (read-char*) ;; remember that we have to do this (setq handle-next-char :upcase) nil) (otherwise ;; otherwise this is a ;; backslash-escaped character (unescape-char regex-mode)))) ((#\~) ;; #\~ - might be an inline format directive (if *interpolate-format-directives* `(format ,string-stream ,(concatenate 'string "~" (read-format-directive)) ,@(let ((form (read-form :recursive-p recursive-p))) (if form (list form) '()))) #\~)) ((#\$) ;; #\$ - might be an interpolation (let ((form (read-form :recursive-p recursive-p))) (cond ((null form) ;; no, just dollar sign #\$) (handle-next-char ;; yes, and we have to ;; modify the first ;; character (prog1 (let ((string (gensym))) `(let ((,string (format nil "~A" ,form))) (when (plusp (length ,string)) (setf (char ,string 0) (,(if (eq handle-next-char :downcase) 'char-downcase 'char-upcase) (char ,string 0)))) (write-string ,string ,string-stream))) (setq handle-next-char nil))) (t ;; no modification, just ;; insert a form to PRINC ;; this interpolation `(princ ,form ,string-stream))))) ((#\@) ;; #\Q - might be an interpolation (let ((form (read-form :recursive-p recursive-p)) (element (gensym)) (first (gensym))) (cond ((null form) ;; no, just at-sign #\@) (handle-next-char ;; yes, and we have to ;; modify the first ;; character (prog1 (let ((string (gensym))) `(loop for ,first = t then nil for ,element in ,form unless ,first do (princ *list-delimiter* ,string-stream) if ,first do (let ((,string (format nil "~A" ,element))) (when (plusp (length ,string)) (setf (char ,string 0) (,(if (eq handle-next-char :downcase) 'char-downcase 'char-upcase) (char ,string 0)))) (write-string ,string ,string-stream)) else do (princ ,element ,string-stream))) (setq handle-next-char nil))) (t ;; no modification, just ;; insert a form to PRINC ;; this interpolated list ;; (including the list ;; delimiters inbetween) `(loop for ,first = t then nil for ,element in ,form unless ,first do (princ *list-delimiter* ,string-stream) do (princ ,element ,string-stream)))))) ;; just a 'normal' character (otherwise next-char)))))) (when interpolation ;; INTERPOLATION is NIL if we just saw #\l or #\u (when (and handle-next-char (consp interpolation) (eq (first interpolation) 'write-string)) ;; if we have to upcase or downcase the following ;; character and we just collected a form (from a ;; \Q/\L/\U scope) we have to insert code for the ;; modification (setf (second interpolation) (let ((string (gensym))) `(let ((,string ,(second interpolation))) (when (plusp (length ,string)) (setf (char ,string 0) (,(if (eq handle-next-char :downcase) 'char-downcase 'char-upcase) (char ,string 0)))) ,string))) (setq handle-next-char nil)) (cond ((characterp interpolation) ;; add one character to COLLECTOR and handle ;; it according to HANDLE-NEXT-CHAR (vector-push-extend (case handle-next-char ((:downcase) (setq handle-next-char nil) (char-downcase interpolation)) ((:upcase) (setq handle-next-char nil) (char-upcase interpolation)) (otherwise interpolation)) collector)) ((stringp interpolation) ;; add a string to COLLECTOR and handle its ;; first character according to ;; HANDLE-NEXT-CHAR (loop for char across interpolation do (vector-push-extend (case handle-next-char ((:downcase) (setq handle-next-char nil) (char-downcase char)) ((:upcase) (setq handle-next-char nil) (char-upcase char)) (otherwise char)) collector))) ((plusp (length collector)) ;; add code (to be executed at runtime) but ;; make sure to empty COLLECTOR first (push collector result) (push interpolation result) ;; reset collector (setf collector (make-collector))) (t ;; same but COLLECTOR is empty (push interpolation result))))))))) (if (every #'stringp result) ;; if all elements of RESULT are strings we can return a ;; constant string (string-list-to-string result) ;; otherwise we have to wrap the PRINCs emitted above into a ;; WITH-OUTPUT-TO-STRING form `(with-output-to-string (,string-stream) ,@(loop for interpolation in result if (stringp interpolation) collect `(write-string ,interpolation ,string-stream) else collect interpolation))))) (defun %enable-interpol-syntax (&key (modify-*readtable* nil)) "Internal function used to enable reader syntax and store current readtable on stack." (unless modify-*readtable* (push *readtable* *previous-readtables*) (setq *readtable* (copy-readtable))) (set-dispatch-macro-character #\# #\? #'interpol-reader) (values)) (defun %disable-interpol-syntax () "Internal function used to restore previous readtable." (if *previous-readtables* (setq *readtable* (pop *previous-readtables*)) (setq *readtable* (copy-readtable nil))) (values)) (defmacro enable-interpol-syntax (&rest %enable-interpol-syntax-args) "Enable CL-INTERPOL reader syntax." `(eval-when (:compile-toplevel :load-toplevel :execute) (%enable-interpol-syntax ,@%enable-interpol-syntax-args))) (defmacro disable-interpol-syntax () "Restore readtable which was active before last call to ENABLE-INTERPOL-SYNTAX. If there was no such call, the standard readtable is used." `(eval-when (:compile-toplevel :load-toplevel :execute) (%disable-interpol-syntax))) cl-interpol-0.2.6/alias.lisp0000644000004100000410000000607112757757171016010 0ustar www-datawww-data;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-INTERPOL; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-interpol/alias.lisp,v 1.3 2008/07/23 14:41:37 edi Exp $ ;;; Copyright (c) 2003-2008, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions ;;; are met: ;;; * Redistributions of source code must retain the above copyright ;;; notice, this list of conditions and the following disclaimer. ;;; * Redistributions in binary form must reproduce the above ;;; copyright notice, this list of conditions and the following ;;; disclaimer in the documentation and/or other materials ;;; provided with the distribution. ;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED ;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED ;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY ;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE ;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS ;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, ;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (in-package :cl-interpol) ;;; define some aliases (loop for (alias . name) in '(("LINE FEED" . "LINE FEED \(LF)") ("FORM FEED" . "FORM FEED \(FF)") ("CARRIAGE RETURN" . "CARRIAGE RETURN \(CR)") ("NEXT LINE" . "NEXT LINE \(NEL)") ("LF" . "LINE FEED \(LF)") ("FF" . "FORM FEED \(FF)") ("CR" . "CARRIAGE RETURN \(CR)") ("NEL" . "NEXT LINE \(NEL)") ("ZWNJ" . "ZERO WIDTH NON-JOINER") ("ZWJ" . "ZERO WIDTH JOINER") ("BYTE ORDER MARK" . "ZERO WIDTH NO-BREAK SPACE") ("BOM" . "BYTE ORDER MARK") ("HORIZONTAL TABULATION" . "CHARACTER TABULATION") ("VERTICAL TABULATION" . "LINE TABULATION") ("FILE SEPARATOR" . "INFORMATION SEPARATOR FOUR") ("GROUP SEPARATOR" . "INFORMATION SEPARATOR THREE") ("RECORD SEPARATOR" . "INFORMATION SEPARATOR TWO") ("UNIT SEPARATOR" . "INFORMATION SEPARATOR ONE") ("PARTIAL LINE DOWN" . "PARTIAL LINE FORWARD") ("PARTIAL LINE UP" . "PARTIAL LINE BACKWARD")) for existing-char = (character-named name) when existing-char do (setf (gethash (canonicalize-name alias) *unicode-aliases*) existing-char))