;;; -*- 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-"))

